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INFORMATION MODEL BASED ON A PHYSICAL SYSTEM 

5 

A portion of the disclosure of this patent document contains 
material that is subject to copyright protection. The 
copyright owner has no objection to the facsimile 
reproduction by anyone of the patent document or the patent 
10 disclosure, as it appears in the Patent and Trademark Office 
file or records, but otherwise reserves all copyright rights 
whatsoever. 



15 



BACKGROUND OF THE INVENTION 
1. TECHNICAL FIELD 



The present invention relates to object-oriented systems 
analysis. More particularly, the present invention relates 
20 to an object-oriented information model based on an 
underlying physical system, including associated 
infrastructure and personnel, for example the equipment which 
makes up an electric utility power system, 

25 2. DESCRIPTION OF THE PRIOR ART 

Electrical power systems are large complex physical systems 
with many types of interconnected electrical equipment. Such 
systems are often modeled for various reasons within the 
30 departments that make up the utility which is responsible for 
operating the power system. 



35 



Each department within the utility typically maintains its 
own specific database, usually employing a proprietary 
application program. This proprietary application program 
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is tightly coupled to a particular operating system, computer 
manufacturer, data structure, etc. That is, the proprietary 
application programs employed in the various departments of » 
the utility are vendor specific and cannot be interfaced with 
5 or exchange data with the application programs used in other - 
departments (and often with those within the same 
department) . Thus, in a utility, information is not freely 
exchangeable between the various departments of the utility, 
such as planning, engineering, operations etc. 

10 

The present state of the art is such that the various 
proprietary application programs are, at best, difficult for 
a department to use and maintain. That is, the user 
interface in most such programs requires the manipulation of 
15 strings of raw data, or the entry of data into crude forms. 
Thus, highly skilled personnel are required for the 
performance of a tedious and repetitive task. 

Additionally, known database structures as are employed in 
20 such application programs merely provide virtual models of 
a power system based on abstract mathematical descriptions 
of system equipment. Such models are generic approximations 
of actual installed equipment within the power system. Thus, 
there is an inherent error in the model. When the error that 
25 is present in several separate databases within the utility 
is considered, it can be seen that the cumulative error 
renders data collection and reporting within a utility a 
Tower of Babel. 

30 Accordingly, the utility is faced with occupying its . . 
personnel with the many problems attendant with such 
application programs: redundant entry of the same data in 
different formats, inconsistent and inaccurate local 
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departmental models, stale data as information within one 
department does not track other departments, slow response 
on a system level to equipment changes, etc., all in the 
context of many complex application programs that are 
5 difficult and expensive to use and maintain. 

SUMMARY OF THE INVENTION 

The present invention is an object-oriented information model 
10 of a physical system, including associated infrastructure and 
personnel, such as an electrical power system. The preferred 
embodiment of the invention provides a single, comprehensive 
description of the equipment in a power system, including 
network topology, operational constraints and limits, 
15 telemetry and communication details. 

The organization of information in the power system data 
model is derived from an object-oriented analysis of the 
power system. In the invention, physical pieces of equipment 
20 are represented as objects with attributes that can be 
verified (primary data) and relations, including 
connectivity, grouping, and location. 

The user interface provided by the present invention is based 
25 on a windowing environment. Where possible, data input is 
a matter of selection from a set of recognizable elements 
contained within the system. In this way, entry error is 
significantly reduced. 

30 The present invention also provides interfaces to existing 
application program databases. Import interfaces allow 
existing data to be captured. Export interfaces allow 
continuing support of base application programs by the 
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present invention. Accordingly, the present invention 
provides a single, easy to use source for all proprietary 
application program databases at a utility. * 

5 BRIEF DESCRIPTION OF THE DRAWINGS 

Fig. 1 is a data flow diagram of an information model in 
accordance with the present invention; 

10 Fig. 2 is a block level hierarchical representation of a data 
structure in accordance with the present invention; 

Fig. 3 is a block level representation of a first level 
database menu in accordance with the present invention; 

15 

Fig. 4 is a block level representation of a type hierarchy 
menu in accordance with the present invention; 

Fig. 5 is a block level representation of a group hierarchy 
20 menu in accordance with the present invention; and 

Fig. 6 is a block level representation of a find object 
operation in accordance with the present invention. 

25 

DETAILED DESCRIPTION OF THE INVENTION 

The present invention is best understood by referring to the 
Drawings in connection with review of this Description. 

30 



WO 94/06087 



PCT/US93/08233 



Power System Data Model 

The present invention provides a database that finds 
application, for example, in the electric utility industry 
5 to hold attribute and connectivity data for electrical power 
system equipment. The invention reduces duplication of data 
and, through import and export capability, provides a single 
point of maintenance for the operations, planning, 
engineering, information services, and other departments of 
10 the electric utility. This feature of the invention 
eliminates the need to maintain multiple application program 
databases within the utility by replacing the multiple 
databases with a single, comprehensive point of maintenance. 

15 The power system data model of the present invention allows 
the utility to define and maintain connectivity information 
for electrical equipment. The present invention has an 
information flow, as shown in block diagram form in Fig. 1, 
that provides a central repository of information about the 

20 equipment which forms the electrical generation, 
transmission, and distribution network of the electric 
utility. This central repository is referred to in Fig. f 
as the power system data model 10. 

25 The power system data model is implemented in a relational 
database. The power system data model provides a data 
transfer path 11 for information transfer, including attri- 
bute and connectivity information. This information is 
transferred to a process 14 which generates input files. 

3 0 These input files are in turn exchanged, as indicated by the 
information transfer path 27, with the proprietary 
application program databases 16 that are used by the various 
departments within the utility, e.g. design, analysis, 
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planning, operations, and real-time software applications, 
including supervisory control and data acquisition (SCADA) , 
distribution automation (DA/DMS) , Energy management systems 
(EMS) , and dispatcher training simulators (DTS) . 

5 

The invention replaces the need to maintain multiple 
proprietary application program databases with a single, 
comprehensive point of maintenance in the power system data 
model 10. The external database generator 14 (14a-14n) uses 
10 the power system data model 10 to create data exchange files 
which contain attribute data in an appropriate format to 
populate any of several proprietary databases 16 (16a- I6n) 
for use by operations, engineering, or other applications. 

15 For example, an electrical utility Energy Management System 
may integrate real-time and analysis applications from 
several different vendors, each vendor having a different 
proprietary database. In such system, the maintenance 
associated with electrical network modeling is performed by 

20 the present invention. The data exchange files are 
transferred from the power system data model (exported) to 
the host system for the target database. 

A data transfer path 25 is provided which allows information 
25 from the various proprietary databases to be imported to the 
power system data model through a data port 26. The data 
port receives existence, attribute, and connectivity 
information from the proprietary database and provides this 
information along a data transfer path 27 to the power system 
30 data model. 

An historical data storage system 12 is included in the 
preferred embodiment of the invention that is capable of 
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storing timed samples (i.e. minimum, maximum, and average 
values every thirty seconds), continuous records (i.e. alarm 
and event logs), and snapshots (i.e. current system state) 
for later analysis. Such samples are provided along a data 
5 transfer path 23, which transfers information that is 
captured by an historical data capture process 18. The 
historical data capture process is in turn part of a data 
transfer path 25, which provides information to the 
historical data capture process from the various application 
10 programs 16 (16a-16n) . The historical data storage system 
uses the power system data model 10, as shown by the data 
transfer path 13, to analyze historical data within the 
context of the power system. 

15 The database design is easily extensible such that the power 
system data model can be expanded to encompass an enterprise 
data model. Thus, connections may be provided to external 
databases for AM/FM, GIS, and corporate computer systems. 

20 For example, in some embodiments, the invention may operate 
in conjunction with an AM/FM/GIS system 20, in which 
existence and connectivity (described further belowf 
establish one data transfer path 19 to the power system data 
model, and in which attributes establish another data 

25 transfer path 21 with regard to the power system data model. 

The invention may be operated in a client -server environment 
including data servers, transaction managers, client 
applications, and user interface servers. Thus, a data 
30 server may be used to serve data to all interested users 
(clients) . For example, user clients who are located 
throughout the power system network, a resource manager for 
the databases, and a transaction manager for a distributed 
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database system may all be served by data servers. A key 
point of the present invention is that the server provides 
a single (logical) model of the power system. Thus, there * 
is only one comprehensive and consistent model of the power 
5 system, but that model may be distributed and/or replicated * 
for better access throughout the power system network. 

The invention provides processes both for interactive 
maintenance 22, having an attribute data transfer path 17, 
10 and for decision support 24, having an attribute/connectivity 
data transfer path 15 and a past performance data transfer 
path 29. 

The present invention is implemented in relational database 
15 technology. Thus, relational tools are applied to data 
maintenance where traditional proprietary databases usually 
offer a user very little help, that is, in the areas of SQL 
access, ad- hoc queries, report generation, network access, 
and decision support. The present invention may be 
20 implemented using known database programming techniques. 
See, for example, Object-Oriented Systems Analysis. Shlaer 
and Mellor, Yourdon Press (1988) for a discussion of 
relational database techniques that are applicable in 
implementing the present invention. 

25 

Objects 

The present invention is based on extending relational 
database technology and object-oriented systems analysis to 
30 a power system model. In object-oriented systems analysis, ft 
• abstractions are produced that correspond to sets of physical 
things. These things are referred to as objects. Each 
object has a set of attributes which describe the object's 
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characteristics (discussed more fully below) . A specific 
occurrence of an object, in which the object's attributes are 
populated with data, is referred to as an instance . All 
instances within a set of instances have the same 
5 characteristics and are subject to and conform to the same 
rules of behavior. Referential attributes are used to 
maintain the relationships between different objects. 

The information model of the present invention describes: 

10 

- objects 

- attributes of those objects; 

- relationships between objects; and 

- behavior of the object. 

15 

An object is an abstraction of a set of real -world things, 
i.e. underlying physical equipment, etc., such that: 

- all real -world things in the set (the instances) have the 
20 same characteristics; and 

- all instances are subject to and conform to the same rules- 
and behavior. 



Objects can be tangible things, roles, events, interactions, 
25 and specifications. Examples include: 

- Tangible things: transformers, switches, lines; 

- Roles: operators, dispatchers; 

- Events: incidents, alarms, trouble calls, plans, schedules; 
30 - Interactions: connections, measurements, groupings, 

correlations; and 

- Specifications: equipment models, validation lists. 
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Lists of objects may be generated using a grouping mechanism 
to view the contents of the user- defined interactions, as 
well as lists of all the groups to which any single object 
belongs. Lists can also be generated using ad-hoc queries 
5 with pattern matching of object names. 

An object is named based on the following criteria: common 
names are preferred, the names should be 'strong' names, the 
names should have the same dimension and be precise, the 
10 names should be based on the object's essential nature, and 
the name may be content based. 

One aspect of the present invention provides a power system 
data model which is derived using an object-oriented analysis 
15 of a power system. The model represents the physical types 
of equipment and their connectivity. The model contains 
rules that maintain referential and electrical integrity and 
which simulate the behavior of the power system. 

20 The power system data model defines the existence of and 
assigns unique keys to equipment in the power system. Based 
on object-oriented systems analysis, the preferred embodiment 
of the power system data model describes four main types of 
equipment (described more fully below) : conducting 

25 equipment, sensing equipment, computer equipment, and support 
.equipment. Relationships between equipment items are 
modeled, as are groupings that may be imposed by utility 
specific conventions. 

30 Types 

Typing is used in the present invention to enhance the 
description of an object in the database. For equipment in 
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the power system, typing is used to define a classification 
scheme that identifies the exact type of equipment to a 
> degree of resolution defined by the end user. The same 

technique is used to identify other types of objects in the 
5 invention. 



In the invention, supertypes and subtypes are used to 
categorize objects that are usually classified in a 
hierarchy. Thus, subtypes and supertypes are used to capture 

10 similarities between classes of things in the real world, 
including attributes and behavior. Subtypes and supertypes 
are used initially to model separate objects and then to 
bubble up the common attributes. This procedure establishes 
a type hierarchy which is used as a framework for the power 

15 system data model. In establishing subtypes and supertypes 
a bottom up system analysis is employed. Thus, the starting 
point is each physical element in the system. 

A subtype is a more specific description of a parent 
20 supertype. A subtype therefore contains all properties 
possessed by its supertype. Thus, the attributes of a 
subtype are a property of a supertype object. For example; 
if all the subtypes of Switch have attributes describing 
their most recent state and normal state (Open or Closed), 
25 these attributes can be assigned to the switch object. They 
are then 'inherited 1 by all the objects that are a subtype 
of Switch. Other attributes may be common across many types 
of objects (e.g. manufacturer; location) . These attributes 
may be moved up into classification objects, such as 
30 Conducting Equipment. 

The present invention provides for three kinds of types: 
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- system types; 

- user application types; and 

- user types. 

5 System types are pre-defined and may not be modified because 
they are necessary and fundamental to the correct operation 
of the power system model. User application types are used 
by user-written applications to define well known or reserved 
types. User types are defined and modified as necessary to 
10 express the desired depth of classification. 

The three kinds of types are best understood as graphically 
depicted as follows: 

15 Kev Value Type 
lk-lOK Systems 
10k-20k Users 



20 900k-1000k 

. 1M- 1 . 01M User-defined 



25 



30 



999.99M-1000M 

Each new type must be related to a previously defined type. 
This relationship forms a supertype-type hierarchy. The 
hierarchy supports an unlimited number of levels but each 
type has one and only one supertype. 

For example, a particular type of switch, e.g. a minimum oil 
circuit breaker, would be 'typed 1 by application of the 
invention as follows: 
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10 



1. Object 

2 . Equipment 



4. Switch 

5 . Breaker 

6. CB 

7. Oil CB 

8. M-OCB 



All things are objects. 
It is a piece of real equipment . . . 
3, Conducting Equipment ...that is a part of the power 

system. 

It is a switch and... 
. . .it can break load and. . . 
...it is a circuit breaker 
and . . . 

...it is an oil circuit breaker 
and. . . 

...it is a minimum oil circuit 
breaker. 



15 The invention defines types (Object, Equipment, Conducting. 
Equipment, and Switch, above) that are used to allow the 
power system data model to interpret the type of object 
that is modeled. The user defined types (Breaker, CB, Oil 
CB, and Minimum- Oil CB, above) allow interactive users and 

20 user written applications to alter model behavior based on 
the type. 

These types are depicted graphically as a hierarchy of 
types where the lower levels are subtypes. The four main 
25 types of equipment - conducting equipment, sensing 

equipment, computer equipment, and support equipment 
(discussed below) - are supertypes of the other equipment 
types, which may, in turn, be supertypes of still other 
types . 



One unique aspect of the present invention also provides 
for basetypes (or fundamental types), i.e. a formalized 
point in the type hierarchy that encompasses a number of 
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similar subtypes (similar in attributes and behavior) . 
The preferred embodiment of the present invention provides 
Breaker, Fuse, and Disconnect as base types, for example. 
All are subtypes of Switch (which could also be a 
5 basetype) . Base types are used to map objects for 

editors, database tasks, and for procedures that model 
behavior. For example: 

• Switch 

10 

- Breaker (capable of interrupting load and reclosing) 

> OCB, M-OCB, VCB, ABCB, GCB 

- Fuse (capable of interrupting load) 

> Current limiting, power, cutout, vacuum 
15 - Disconnect (not capable of interrupting load) 

> Station, transmission, distribution 

Attributes 

20 Once the components of a power system and the arrangement of 
these components is set forth in terms of object-oriented 
analysis, the objects are assigned attributes. An attribute 
is the abstraction of a single characteristic possessed by 
all the things that were abstracted as objects. In the 

25 invention, it is preferred that attributes be collected for 
each of the objects identified. During this process, some 
of the attributes assigned to a group of objects are shared 
in common . 

30 The invention provides for obtaining a set of attributes for £ 
objects, where the attributes are: 

- complete: they capture all the information pertinent to the 
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object they define; 

- fully factored: each attribute captures a separate aspect 
of the object abstraction; and 

- mutually independent: the attributes take on their values 
5 independently of one another. 

Attributes are assigned to four different categories 
depending on the type of information they capture: 

10 • descriptive: intrinsic characteristics of an object, which 
are further divided into two categories, i.e.: 

- primary: usually physically verifiable by observation, 
e.gr. line length, tower type, conductor type; and 

- secondary: not usually physically verifiable, but 
15 rather derived from others in the database by calculations 

that model behavior, e.gr. impedance and capacitance; 

• naming: arbitrary names and labels, e.gr. line name; 

• referential: facts that relate an instance of an object 
to an instance of another object, e.gr. manufacturer, location 

20 (implemented using surrogate keys, discussed below); and 

• identifiers: a set of one or more attributes that can 
uniquely identify an instance of an object, e.gr. line name; 
segment name. 

25 Attributes that can be derived from the primary data may be 
calculated automatically. For example, the primary data for 
a transformer is entered directly from the nameplate or test 
report. Individual winding characteristics are derived from 
this information. Transmission line impedances and 

30 admittances are derived from the primary data of conductor 
characteristics, tower geometry, and line segment lengths. 
Derived data may be input in lieu of primary data, if 
desired. 
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One unique aspect of the present invention is the use of two 
types of descriptive attributes. Thus, one goal of the « 
present invention is to calculate secondary attributes where 
5 possible. Otherwise, direct entry of the attribute is • 
employed. In this way, the present invention allows the 
modeling of system behavior. 

Groups 

10 

Objects may be related to each other by assigning them to 
groups. Any particular object may belong to any unlimited 
number of different groups, although each object has a single 
primary group. Groupings are arbitrary collections of 
15 objects. Groups have meaning only as specified by the user. 
The objects in a group are related because they are member 
of (belong to) the same group. Groupings are modeled as 
relationships that may be imposed by utility specific 
conventions. 

20 

Relationships are abstractions of a set of associations that 
hold systematically between different kinds of things in the 
real world. There are an infinite number of relationships 
between types of things in a power system (and a large number 
25 of things themselves) . Prior art approaches to modeling 
power systems express each relationship individually, 
resulting in unwieldy database structures. In the present 
invention, relationships may be: 

- one-to-one; 

30 - one- to-many; and 

- many- to-many . 

For example: 
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- a substation contains equipment; 

- telemetry monitors equipment; 

- lines are composed of segments; 
5 - equipment may have a location; 

- electrical equipment is connected to electrical equipment; 

- electrical equipment may have ratings; 

- transformers have windings. 

10 Additionally, relationships may be conditional or 
unconditional. 

One unique feature of the present invention provides for the 
use of one table for all groupings (i.e. for all 
15 relationships, such as 'member of, 1 f located with, 1 and 
'shown on 1 ). Typically, a database of the type described 
herein would rely on a separate table for each grouping 
relationship between each type of object. 

20 Group-Member Relationship 

The present invention contains a description of group -member- 
relationship. Both the group and the member are objects in 
the database. Where a division belongs to a company, the 

25 group is an object of the type COMPANY, the member is an 
object of type DIVISION, and the relationship is BELONGS TO. 
Other relationships may include: LOCATED WITH, which can be 
used to locate switches on poles that have a known address; 
SHOWN ON, which relates objects to maps and drawings; RATED 

30 AS, which allows a common set of ratings to be held for a set 
of similar equipment; and LOAD MODELED BY, which allows a 
common load model to be applied to similar consumers. 
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The SYSTEM grouping holds references to all the objects that 
make up a version of the power system data model. 
Generational versions record the evolution of the equipment * 
in the power system. Between two versions, the grouping 
5 mechanism duplicates only the references to objects common 
to both, not the objects themselves. 

Additionally, objects may be stored as members of groups in 
at least two ways: 
10 - as an object: e.g. a transformer 

- as a network position identifier: e.g. a position or place 
holder in the power system. 

By assigning a dual nature to an object, the object itself 

15 may exist in the model, along with its attributes, and a 
place in the power system may be held into which objects 
having different attributes may be placed based on historical 
need. For example, a power system may have a network 
position identifier for a transformer. An object, i.e. a 

20 transformer having a particular rating, manufacturer, etc. 
may currently occupy that network position. Based on 
historical data, projected needs, etc., it may be determined 
that the network position occupied by the particular 
transformer should be occupied by a transformer having a 

25 different rating, etc. In this way, the power system data 
model (and, accordingly, the power system) is readily 
modified by equipment interchange based on demand, need, 
plan, etc. The historical data can also be applied to the 
object itself, allowing the history of a device to be 

30 analyzed. 



WO 94/06087 



19 



PCT/US93/08233 



Normalization Rules 

The following normalization rules are provided by the 
invention which are applied to the attributes to ensure that 
5 the descriptions are coherent: 

- One instance of an object has exactly one value for each 
attribute; 

- Attributes cannot contain an internal structure; and 

10 - Every non-key attribute must be fully dependent on the 
primary key. 

The normalization rules are similar to those normally applied 
to the design of a relational database. The first rule 
15 defines a 'table 1 in the relational database. 

The second rule ensures that the attributes are fully 
factored. This is essential to avoid 'hard- coded 1 knowledge 
of the meaning of parts of an attribute (e.g. the first two 
20 digits of the equipment number represent the year of 
purchase) . 

The third rule refers to the use of ! keys. ! In a database 
there must be a way of uniquely identifying anything in the 

25 database. In a hierarchical database this is accomplished 
by the combination of the name of the item plus the names of 
the parents of the item (e.g. Substation Foo, Transformer 
Tl) . In a relational database, each row in a table must have 
a key of its own. In some applications this is simple (e.g. 

30 the name of a substation - Foo); in others compound (e.g. 
a name constructed from the identifier plus those of its 
parents - Foo Tl) . 
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The fourth rule requires that every attribute that is not 
part of the identifier must represent a characteristic of the 
entire object, and not a characteristic of something that is • 
identified by part of the identifier {e.g. the attributes 
5 of the transformer Foo Tl cannot include the location of the 
substation Foo) . This rule also prevents the use of 
attributes that are identified by other attributes within the 
object (e.gr. the transformer may have a manufacturer 
attribute, but it is incorrect to store the manufacturer's 
10 address as an attribute of the transformer) . 

Surrogate Keys 

In the preferred embodiment of the present invention, the 
15 actual primary key is modeled as a surrogate key, which is 
a computer generated numeric key that has no meaning to 
users, A surrogate key allows the user to change the name 
of an incidence of an object but not change references. All 
referential attributes are based on surrogate keys. Other 
20 (secondary) keys can be used to access objects by name, and 
the uniqueness rules for these keys can be defined on a case- 
by- case basis. 

One unique feature of the present invention provides for the 
25 use of a balanced binary tree index with sequential keys. 
Surprisingly, the use of this technique in the present 
invention, taking advantage of the fact that the database is 
primarily ! read, ' results in a much faster cycle time. Thus, 
the database is speeded up using a technique that would, by 
30 conventional wisdom, slow a database down. 
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Data Model 

In summary/ one aspect of the present invention provides a 
data model constructed in accordance with the following 
5 procedure : 

• Create an extensible type hierarchy, allowing a user to 
extend types down the hierarchy; 

10 • Collapse objects into tables, where attributes specific to 
all objects below base types are collapsed into type tables, 
and all objects above base types are collapsed into object 
tables: 

- Use typing to identify an object (not a table name); 

15 and 

- Use common object table with surrogate keys; and 

• Externalize and collapse relationships, where three main 
relationships are defined in the preferred embodiment of the 

20 present invention, i.e. connectivity, measurements, and 
groupings : 

- Use typing to identify the type and relationship. 

The data model incorporates the following procedures and 
25 operations to ensure integrity: 

• Referential: to enforce constraints imposed by the 
database design, e.g. relationships between tables; 

30 • Validation: to evaluate against real -world criteria, e.g. 
use engineering rules of thumb to reject bad data; and 

• Behavioral: to model behavior of equipment, e.g. calculate 
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secondary/primary descriptive attributes, or split up load 
models . 

These procedures are triggered when data is changed, e.g. SQL 
5 insert, update, delete statements, etc. The procedures - 
cannot be bypassed by using a different user interface. This 
is vital for integrity and prevents the use of so-called 
! back doors 1 to corrupt the database. These procedures may 
be turned off, e.g. for maintenance. 

10 

Triggers make the presence of various procedures transparent. 
Thus, a user would not be aware of the operation of the 
database. Rather, values are entered and results displayed. 
This is discussed in greater detail below. 

15 

Physical Model 

An important aspect of the present invention is the use of 
a physical model. Thus, the descriptive attributes recorded 

20 for an object are verifiable. For example, control center 
applications may require the impedances for a three-winding 
transformer to be specified on a per- winding basis, corrected 
for the system base MVA and kV levels. These impedances 
cannot be validated by inspection. In the prior art, it is 

25 common practice to enter these values directly into the 
databases used by the specific application programs 
.concerned. If the data from the manufacturer's test report 
are entered into the database of the present invention, then 
the application data can be calculated at any point in the 

30 system. This test data has a known provenance which can be 
checked if a question arises about the validity of the data. 

Another example of the foregoing involves transmission line 
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impedances. If the characteristics of conductor types and 
tower geometries are known, it is possible to calculate the 
positive sequence impedances from the primary data of the 
line length and construction. By adding more information 
5 about the ground resistivity and the relationships to other 
lines in the same right-of-way, zero sequence impedance can 
also be calculated. 

The power system data model describes four main types of 
10 equipment: conducting equipment, sensing equipment, computer 
equipment, and support equipment. The following 

relationships are established between these four major types: 

1. Sensing equipment -> measures -> conducting equipment; 

15 

2. Support equipment -> supports -> conducting equipment; 

3. Conducting equipment -> is connected to -> conducting 
equipment; and 

20 

4. Computer equipment -> controls and models -> conducting 
equipment . 

The main types of the conducting equipment are: 

25 

Conducting equipment -> capacitor, switch, transformer, 
generator, conductor, reactor, consumer, etc. 

The sensing equipment is assigned two major subtypes: 

30 

•Sensing equipment -> 

- protection: voltage relay, current relay, frequency 
relay, etc.; and 
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- telemetry: analog, digital, counter, control, etc. 



The support equipment encompasses the equipment needed to 
keep the network in place: 

5 

Support equipment -> 

- overhead: tower, pad, pole, etc; 

- underground: manhole, pit, vault, etc; and 

- etc. 

10 

Computer equipment may be described as follows: 



Computer equipment -> 

- hardware: display, printer, etc; 
15 - software: program. 



"The relationships in the power system data model may be 
extended by the end user. Groupings are used to aggregate 
the equipment into larger units that reflect the utility's 
20 organization. For example, a utility may choose to define 
groups of equipment as follows: 

Equipment group -> system, company, division, substation, 
bay, line, circuit, etc. 

25 

A circuit breaker can belong to a bay that belongs to a 
substation that belongs to a division that belongs to a 
company. This is represented graphically as follows: 

3 0 Company -> division -> substation -> bay -> circuit breaker. 

The same circuit breaker may also belong to a transmission 
line which may belong to two different divisions of different 
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companies . 

That is, 

5 Company 1 -> division 1 -> 
Company 2 -> division 2 -> 

-> transmission* line -> circuit breaker 

These example groupings are specific to a particular utility. 
10 Each database user can choose different groupings to 
accurately reflect the utility's organization. 

Fig. 2 is a block level representation of an object 30 as may 
be used in the present invention as a database member based 
15 on physical equipment having both a location 32 and a rating 
34. The following types of conducting equipment are modeled 
in the power system data model provided in a preferred 
embodiment of the invention: 

20 AC Overhead Line: The AC overhead line model constructs a 
line from a number of two terminal conductors 46. Each 
conductor has impedance and capacitance information 
associated with it that can either be entered directly or 
calculated by the power system data model from supplied 

25 primary data, e.g. tower geometry 43, conductor 
characteristics 41, and conductor length. 

Busbar: Busbars 45 are considered subtypes of conductors 46 
and may be modeled as physical devices, if desired. This 
30 characterization is in contrast to prior art practice of 
modeling a bus bar as an abstraction referred to as a node. 

Capacitor: For capacitors 36, the installed MVAr is modeled. 
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Consumer: A consumer 38 is used to model a 'load' 33 on the 
power system. For a transmission model, consumers may be 
distribution feeders or major customers. If power system 
5 modeling is extended to include the distribution primary, 
consumers may be commercial enterprises with a high voltage 
supply or they may be housing developments. If desired, the 
model may be extended to individual meters. Each .consumer 
has a base load expressed in MW or MVAr, plus voltage and 
10 frequency variations for the base load. A family of load 
curves that describe temporal variation of the base load can 
be associated with the consumer, such as season 35, day type 
37, and load value 39. 

15 Generator: Generator 42 MVA, MW, MVAr, and kV ratings, 
resistance and reactance, and parameters for the rate of 
change of the unit are modeled. 

Reactor: For reactors 44, the installed MVAr is modeled. 

20 

Switch: The normal state of a switch 48 is modeled. 

Transformer: The power system data model includes one- and 
three-phase, two- and three -winding transformers 50. 

25 Characteristics of the transformers may be entered directly 
from the nameplate and manufacturer's test reports as primary 
data, in which case the per-winding impedance information is 
calculated 49. The per-winding impedance data may be entered 
directly, if desired. Additionally, tap setting information 

30 47 is modeled. 

i 

Transformer banks may also be supported by the present 
invention. 
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Additionally, the power system data model may also model 
PERSONS 54 , COMPUTERS 56 , and TELEMETRY 58, as desired. 

5 User Interface 

In the preferred embodiment of the invention, all equipment 
attribute data are maintained in a single database using a 
window-based graphical user interface. Primary data for an 

10 object are input directly by a user. The use of windowing 
in the user interface permits precise control of input data 
at the point of entry using pull down menus and slider bars 
having a range bounded by the physical limits of the modeled 
equipment. Thus, out of range or incorrect settings are not 

15 possible and a user can be guided through an interactive data 
input process with little previous experience or training. 

Typically, the user of the invention is an engineer having 
responsibility for modeling decisions concerning the 
20 electrical power system. The user interface also allows 
efficient data entry for administrative personnel. 

Thus, the present invention features a consistent graphical 
user interface across all applications and for all users. 

25 A user enters attribute data via pop-up menus, pull -down 
menus, scrollable lists, enterable fields, dialog boxes, and 
mouse pointing device support, generic implementation of 
which is well known in the art. Data entry fields are color 
coded to prompt the user for the appropriate type of input. 

30 For example, electrical connectivity is defined using point 
and click operations to reference the physical terminals of 
the equipment being connected. 
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The invention allows several editors to be active at the same 
time. An editor can be started for any object in the 
database by clicking at any reference to that object. In the 
equipment editor windows, the user selects from option lists 
5 that only offer valid choices. Existing equipment may be used 
as a template to simplify data entry for new equipment. 

The user interface of the present invention is configurable 
in the preferred embodiment for OSF/MOTIF, Open Look, or 
10 Windows. Typical hardware support for the present invention 
may include workstation type computers, such as VAXstations 
running VAX/VMS with INGRES or DECstations running 
ULTRIX/RISC with INGRES, as supplied by Digital Equipment 
Corporation of Maynard, MA. 

15 

Operation 

Fig. 3 shows a first level database menu 100 for a specific 
power system 110. At this level, a user accesses type 
20 hierarchy 120, system parameters 130, grouping selection 140, 
and object lists 150. 

A user makes a selection in menu 100, for example type 
hierarchy 120, and is directed to a type menu 200 for the 

25 desired type hierarchy 210. Type hierarchy includes a name 
field 230 which identifies an established hierarchy for a 
specified object 240, which is further defined as equipment 
250 (subtype) of a type that is conducting 260 (sub-subtype) . 
Additional hierarchy may be provided in the remaining field 

30 270 and several other fields, as desired, beneath it. 

Once type and type hierarchy are established, a type 
selection is made 280, as specifically defined by a name 
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field 290. The selection is made from the available types 
300-350, for example, ground, generator, consumer, capacitor, 
reactor, or switch; and any additional subtypes 360. 

5 A grouping selection menu 400 for a specified grouping 410 
is shown in Fig. 5. A first level in the menu displays group 
hierarchy 420 by type 430 and by name 440. Thus, group 
hierarchy may be structured as an organization 431 named 
ORGANIZATION 441, having a system 432 named SYS 442, in which 
10 there is a company 433 named CO 443, having a division 434 
named DIV 444, containing a substation 435 named SUB 445, and 
so on. 

For the group hierarchy, a group selection 450 is made, 
15 including a type 460 having a name 470. The list of objects 
selected would represent equipment within substation SUB and 
would be selected by type from a scrollable list 461-469 in 
which each piece of equipment on the list has a corresponding 
name 471-479. 

20 

For each group selected, a user can also identify members of 
the group 480, equipment details 490, and network connections 
495. 

25 Objects within the system may be located from the find object 
menu 500 for a specific object 510, as shown in Fig. 6. 
Thus, an object type is selected 520 from a list of types 
521-524, which may include switch, system, telemetry 
equipment, etc. The object selected is associated with a 

30 group 530 having a relationship 532, such as 'contains, 1 
1 starts with, 1 'ends with, 1 'matches, 1 and having a name 
534. A corresponding name 540 also has a defined relation 
542, such as 'contains' for a name 544. A look-up button 546 
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also provided to obtain a list of objects that match the 
search criteria . 

The objects found are reported by number 550 and, by group 
5 560, type 570, and name 580, each of which includes a 
corresponding list of matching objects (561-566, 571-576, and 
581-586, respectively) . Navigation through the menu is 
enhanced by an apply button 590 and a cancel button 595. 

10 Although the invention is described herein with reference to 
the preferred embodiment, one skilled in the art will readily 
appreciate that additional applications, other than those set 
forth herein, may be substituted therefor without departing 
from the spirit and scope of the present invention. For 

15 example, the invention may be readily applied to other large, 
complex systems, including establishing models for process 
control in manufacturing plants and other physical systems. 
Accordingly, the invention should only be limited by the 
claims included below. 

20 

The following appendix provides source and object code 
listings and screen printouts for software included in this 
invention. The listings include database scheme definition, 
object editors for the power system data manager editor, and 
25 general use frames for the power system data manager. 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Ir.c. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) <ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 
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The following domains are used in this model: 



AbsoluteDate 

Address 

Amps 

Bits 

Boolean 

Comment 

ContactName 

Coordinate 

Count 

Degrees/Step 

Description 

Exponent 

ForeignKey 

Hertz 

Interpolation 

IntervalTime 

kV 

KVLevel 

KeyName 

KeyValue 

LocationLine 

LockCombination 

LongLength 

LongLength/ShortLength 

MVA 

MVAR 

MW 

MW/min 

MeasurementSource 
Name 

ObjectName 

Ohm-ShortLength 

Ohms / LongLeng t h 

ParticipationFactor 

PerCent 

PerUnit 

PerUnitMW-Sec 

PerUnitMW/Freq 

PerUnitkV/MVAR 

Phase ID 

PhoneNumber 

Prima ryKey 

Problem 

Ratingiype 

Reference 

SensorValue 

SequenceNumber 

SerialNumber 

Severity 

ShortLength 

Sourceldentif ier 

TapStep 

TelemetryValue 

Temperature 

TemperatureUnits 

Terminal 

TerminalCount 

TypeName 

UserName 

VersionNumber 

WindingName 



A date in full dd-mm-yyyy hh:mm:ss form 
Address of component in computer system 
Current flow (+ve into bus, -ve out of bus 
Count of bits 

0 = False = No I 1 = True = Yes 
Free form text 

Textual name of a contact person 
Measurement of position on a grid 
Measurement of quantity 
Degrees of phase shift per tap step 
Textual description 
Exponentiation amount 
Reference to a primary key 
Cycles per second 

Type of interpolation between data points 
A time between two points (usually hhh:mm: 
Value representing kV 
Voltage level in kV 
Textual name of a key 
Current value of a key 
Text describing a location 
Combination for a lock 

Long unit of length (e.g. mile; kilometer- 

Ratio of long length to short length 

Megavoltamperes 

Megavoltamperes Reactive 

Megawatt 

Megawatt rate of change per minute 
Reference to document defining measurement 
Textual name 

Textual name of an object 

Resistivity in ohms per-unit short length 

Resistance in ohms per unit long length 

Generating unit economic participation fac 

Normally 0 - 100 on a defined base 

Normally 0 - 1 on a defined base 

MW - second inertia on a defined base 

MW variation with frequency on a defined z 

Voltage variation with reactive power 

Phase identification (AIBICI3) 

Telephone number 

Unique reference to a row 

Identifier of a problem description 

Type of measurement being rated 

Reference to association between two objec 

Physical value measured by a sensor 

Incrementing number used to order rows 

Textual serial number string 

Problem severity (FIEIWII) 

Short unit of length (e.g. foot; meter) 

Reference to data source in foreign dataes 

Transformer tap step position 

Value of reading in telemetry system 

Value of temperature in TemperatureUnits 

C I F 

Object terminal number 

Maximum number of terminals for an object 

Textual name for an object type 

Textual name for a user 

Object version number 

Textual name for a transformer winding 
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Object table. There is an entry in this table for 
Equipment, Organisation and Specification entry. 



every 



CREATE TABLE Object 



( 



Object 
Source 

SystemVersion 

BaseType 

Type 

Prima ryGroupmg 
TypeName 



INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
VARCHAR(20) 



) ; 



PrimaryGroupingName VARCHAR{20) 
Name 

Description 
Comment 
Terminals 
InService 
OutService 
PositionX 
PositionY 
OwnerNumber 
SerialNumber 
SpecNumber 
Created 
CreatedBy 
Last Changed 
LastChangedBy 



VARCHAR(20) 
VARCHAR(60) 
VARCHAR(200) 
INTEGER 
DATE 
DATE 
REAL 
REAL 
CHAR(20) 
CHAR(20) 
CHAR (20) 
DATE 
CHAR(24) 
DATE 
CHAR(24) 



NOT NULL /* 

WITH NULL /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /• 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

WITH NULL /* 

WITH NULL /* 

WITH NULL /* 

WITH NULL /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

WITH NULL /* 

NOT NULL WITH DEFAULT /* 

WITH NULL /* 

NOT NULL WITH DEFAULT /* 



PrimaryKey */ 
Sourceldentif : 
ForeignKey •/ 
ForeignKey */ 
ForeignKey V 
ForeignKey */ 
TypeName */ 
Object Name */ 
ObjectName */ 
Description 
Comment * / 
TerminalCount 
AbsoluteDate 1 
AbsoluteDate 1 
Coordinate V 
Coordinate */ 
SerialNumber 1 
SerialNumber 1 
SerialNumber 1 
AbsoluteDate 1 
UserName */ 
AbsoluteDate 1 
UserName "*/ 
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Conducting equipment. 

Each type of conducting equipment has a table containing 
specific details pertaining to that type of equipment alone. 



CREATE TABLE Capacitor 

Object INTEGER 

NominalMVAR REAL 

VoltSensitivity REAL 

AVRDelay DATE 



NOT NULL WITH DEFAULT / 1 

WITH NULL /' 

WITH NULL r 

WITH NULL /< 



ForeignKey */ 
MVAR V 

PerUnit kV/MVAR 
IntervalTime •/ 



Transmission 
are jumpers. 



lines are made up of two-terminal segments, 
Busbars have single terminals. 



as 



CREATE TABLE Conductor 

Object INTEGER 
R REAL 
X REAL 
Bch REAL 
Length REAL 
Towe r Typ e INTEGER 
GroundConductorType INTEGER 
PhaseConductorType INTEGER 
PhaseConductorCount INTEGER 
PhaseConductorSpacing REAL 



NOT NULL WITH DEFAULT /« 

WITH NULL /« 

WITH NULL /« 

WITH NULL /« 

WITH NULL /* 

NOT NULL WITH DEFAULT /« 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /« 



ForeignKey */ 
PerUnit */ 
PerUnit */ 
PerUnit */ 
LongLength •/ 
ForeignKey */ 
ForeignKey */ 
ForeignKey */ 
Count V 
ShortLength */ 



Consumers (loads) are modeled as a fixed part and a variable part. 
The fixed part represents an unchanging* portion of the load 
(e.g. station load) . The variable part is represents the rest of 
the load. It is made up of a nominal load, plus voltage and frequency 
variations (Dommel eq. 94). This portion of the load is also subject 
to time variations defined by the load curve associated with the 
consumer. The percentage of the total load in the uppermost load 
area for which this consumer is a member is also stored, together 
with a reference to this uppermost load area. (Note that load areas 
are also modeled as consumers) . 



.CREATE TABLE Consumer 



Object 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


ForeignKey 


Type 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


ForeignKey 


TopLoadArea 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


ForeignKey 
MW V 


Pf ixed 


REAL 


WITH NULL 




/* 


Qf ixed 


REAL 


WITH NULL 




/• 


MVAR V 


Pnom 


REAL 


WITH NULL 




/* 


MW V 


Qnom 


REAL 


WITH NULL 




/* 


MVAR V 


PowerFactor 


REAL 


WITH NULL 




/* 


Cosine */ 


Pf ixedPct 


REAL 


WITH NULL 




/• 


Percent v 


Qf ixedPct 


REAL 


WITH NULL 




/* 


Percent V 


PnomPct 


REAL 


WITH NULL 




/* 


Percent */ 


QnomPct 


REAL 


WITH NULL 




/* 


Percent */ 


PVexp 


REAL 


WITH NULL 




/* 


Exponent V 


QVexp 


REAL 


WITH NULL 




/* 


Exponent */ 


PFexp 


REAL 


WITH NULL 




/* 


Exponent »/ 


QFexp 


REAL 


WITH NULL 




/* 


Exponent */ 
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Object 


INTEGER 


NOT NULL WITH DEFAULT 


/* 


RatedMVA 


REAL 


WITH 


NULL 


/* 


MinimumMW 


REAL 


WITH 


NULL 


/* 


BaseMW 


REAL 


WITH 


NULL 


/* 


MaximumMW 


REAL 


WITH 


NULL 


/* 


MinimumMVAR 


REAL 


WITH 


NULL 


/* 


BaseMVAR 


REAL 


WITH 


NULL 


/* 


MaximumMVAR 


REAL 


WITH 


NULL 


• » 


MinimumKV 


REAL 


WITH 


NULL 




MaximumKV 


REAL 


WITH 


NULL 


/• 


X 


REAL 


WITH 


NULL 


/* 


R 


REAL 


WITH 


NULL 


/* 


Inertia 


REAL 


WITH 


NULL 


/• 


Damping 


REAL 


WITH 


NULL 


/• 


ManualToAVR 


DATE 


WITH 


NULL 


/* 


AVRToManua lLag 


DATE 


WITH 


NULL 


/• 


AVRToManua 1 Lead 


DATE 


WITH 


NULL 


/* 


NormalPF 


REAL 


WITH 


NULL 


/* 


Short PF 


REAL 


WITH 


NULL 


/* 


LongPF 


REAL 


WITH 


NULL 


/* 


DownRampRate 


REAL 


WITH 


NULL 


/* 


UpRampRate 


REAL 


WITH 


NULL 


/* 



); 

CREATE TABLE Reactor 



( 



Object 
NominalMVAR 
VoltSensitivity 
AVRDelay 

) ; 

CREATE TABLE Switch 

( Object 

NormalOpen 
CurrentlyOpen 

, RelayType 

) ; 



INTEGER 
REAL 
REAL 
DATE 



INTEGER 
INTEGER 
INTEGER 
INTEGER 



NOT NULL WITH DEFAULT 
WITH NULL 
WITH NULL 
WITH NULL 



NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 



MW */ 
MVAR */ 
MVAR */ 
MVAR */ 
kV */ 
kV */ 
PerUnit 



PerUnit MW/Freq 
IntervalTime **' 



MW/min */ 



/* ForeignKey */ 

/* MVAR */ . 

/* PerUnit kV/MVAR 

/* IntervalTime 



/* ForeignKey */ 

/* Boolean */ 

/* Boolean */ 

/* ForeignKey v 
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The transformer cable contains information relating to the transferee 

* a whoie. These are mostly related to the magnetizing branch character 

* which are dependent on the core of the transformer. 
*/ 

CREATE TABLE Transformer 



Object 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


ForeignKey */ 


Bank 


INTEGER 


NOT NULL WITH 


DEFAULT 


/• 


ForeignKey */ 
PhaselD */ 


Phases 


CHAR ( 1 ) 


NOT NULL WITH 


DEFAULT 


/* 


MagBaseKV 


REAL 


WITH NULL 




/* 


kV V 


Gmag 


REAL 


WITH NULL 




/* 


PerUnit */ 


Bmag 


REAL 


WITH NULL 




/• 


PerUnit */ 


MagSatFlux 


REAL 


WITH NULL 




/* 


PerUnit */ 


BmagSat 


REAL 


WITH NULL 




/* 


PerUnit */ 



/* 

* Each transformer is made up of a number of windings 
*/ 

CREATE TABLE Winding 



Object 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


ForeignKey •/ 


Winding 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


SequenceNumber 


Source 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


Sourceldentif i 


Name 


CHAR(IO) 


NOT NULL WITH 


DEFAULT 


/* 


WindingName */ 


LoadTapChanger 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


Boolean */ 


NominalKV 


REAL 


NOT NULL 




/* 


KVLevel V 


NeutralKV 


REAL 


NOT NULL WITH 


DEFAULT 


/* 


kV V 


BIL 


REAL 


WITH NULL 




/• 


kV */ 


RatedMVA 


REAL 


WITH NULL 




/* 


MVA V 


ShortTermMVA 


REAL 


WITH NULL 




/* 


MVA V 


Emergency MVA 


REAL 


WITH NULL 




/* 


MVA */ 


LowStep 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


TapStep V 


HighStep 


INTEGER 


NOT NULL WITH 


DEFAULT 


/• 


TapStep */ 


NeutralStep 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


TapStep V 


StepSize 


REAL 


WITH NULL 




/* 


PerCent */ 


PhaseShif t 


REAL 


WITH NULL 




/* 


Degrees/Step * 
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Each transformer may have a number of measurements done at different 
tap settings. These can have two sources: the primary source is the 
manufacturers test report, which contains impedance information in perr 
measured at one winding with a reference winding shorted. The secondary 
source are the impedances derived from this test report. These are 
specified on a per-winding basis, corrected for system base MVA and 
system base kV. These are needed by analytical applications, and are ei 
derived from tthe primary, or loaded directly if the primary informatic 
is not available. 



}; 



iTE TABLE TapSetting 
















Object 


INTEGER 


NOT NULL WITH 


UEr AUtil 




ForeignKey •/ 


Windingl 


INTEGER 


NOT NULL WITH 


DEFAULT 


/ 


SequenceNumber * 


TapStepl 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


TapStep 


V 






NOT NULL WITH 


DEFAULT 


/* 


SequenceNumber * 


TapStep2 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


TapStep 


•/ 


Winding3 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


SequenceNumber * 


TapStep3 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


TapStep 


V 


Source 


CHAR(20) 


NOT NULL WITH 


DEFAULT 


/* 


Measurement Sourc 


RO 1_2 


REAL 


WITH 


NULL 




/* 


Percent 


V 


ZO 1 2 


REAL 


WITH 


NULL 




/* 


Percent 


*/ 


Rl_l_2 


REAL 


WITH 


NULL 




/* 


Percent 


•/ 


Zl_l_2 


REAL 


WITH 


NULL 




/* 


Percent 


*/ 


R0_2_3 


REAL 


WITH 


NULL 




/• 


Percent 


*/ 


Z0_2_3 


REAL 


WITH 


NULL 




/* 


Percent 


*/ 


Rl_2_3 


REAL 


WITH 


NULL 




/* 


Percent 


*/ 


Zl_2_3 


REAL 


WITH 


NULL 




/* 


Percent 


*7 


R0_3_l 


REAL 


WITH 


NULL 




/* 


Percent 


*/ 


ZO 3 1 


REAL 


WITH 


NULL 




/* 


Percent 


V 


Rl 3 1 


REAL 


WITH 


NULL 




/* 


Percent 


*/ 


Zl_3_l 


REAL 


WITH 


NULL 




/• 


Percent 


V 


R0_1 


REAL 


WITH 


NULL 




/* 


Percent 


*/ 


ZO 1 


REAL 


WITH 


NULL 




/* 


Percent 


V 


X0 1 


REAL 


WITH 


NULL 




/* 


Percent 


V 


Rl_l 


REAL 


WITH 


NULL 




/* 


Percent 


V 


Zl_l 


REAL 


WITH 


NULL 




/* 


Percent 


*/ 


Xl_l 


REAL 


WITH 


NULL 




/• 


Percent 


V 


RO 2 


REAL 


WITH 


NULL 




/* 


Percent 


V 


Z0_2 


REAL 


WITH 


NULL 




/* 


Percent 


V 


X0_2 


REAL 


WITH 


NULL 




/* 


Percent 


V 


Rl_2 


REAL 


WITH 


NULL 




/* 


Percent 


V 


Zl_2 


REAL 


WITH 


NULL 




/* 


Percent 


•/ 


Xl_2 


REAL 


WITH 


NULL 




/* 


Percent 


•/ 


R0_3 


REAL 


WITH 


NULL 




/• 


Percent 


*/ 


Z0_3 


REAL 


WITH 


NULL 




/* 


Percent 


*/ 


X0_3 


REAL 


WITH 


NULL 




/* 


Percent 


*/ 


Rl-3 


REAL 


WITH 


NULL 




/• 


Percent 


V 


Zl_3 


REAL 


WITH 


NULL 




/• 


Percent 


•/ 


Xl_3 


REAL 


WITH 


NULL 




/* 


Percent 


V 
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Sensing Equipment. 



CREATE TABLE Telemetry 

( 



Object 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


ForeignKey »/ 


TelemetryMinimum 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


TelemetryValue 


Te 1 erne t ry Max i mum 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


TelemetryValue 


XORMask 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


TelemetryValue 


Input 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Boolean */ 


Output 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Boolean */ 


CardAddress 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Address */ 


WordAddress 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/• 


Address */ 


Size 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Bits 


V 


Offset 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Bits 


*/ 


PowerCable 


CHAR{20) 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Name 


*/ 


ReturnCable 


CHAR (20) 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Name 


V 


GroundCable 


CHAR(20) 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Name 


*/ 


TerminationCabie 


CHAR(20) 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Name 


*/ 


Panel 


CHAR(20) 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Name 


*/ 



Computer Equipment. 



CREATE TABLE Computer 
( Object 

Object Address 
, Controller 

ControllerAddress 

Cable 



INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


ForeignKey */ 
Address */ 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


CHAR(20) 


NOT 


NULL 


WITH 


DEFAULT 


/• 


Name */ 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Address *7 


CHAR(20) 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Name */ 
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Specification objects 



Conductor details from the manufacturer. Characteristic of the conduc: 
as supplied by the manufacturer are tabulated. 



CREATE TABLE ConductorType 
( Object INTEGER 
Resistance REAL 
Radius REAL 
GMR REAL 
Ampacity REAL 



NOT NULL WITH DEFAULT /< 

NOT NULL WITH DEFAULT /< 

NOT NULL WITH DEFAULT /< 

NOT NULL WITH DEFAULT /' 

NOT NULL WITH DEFAULT /* 



ForeignKey */ 
Ohms / LongLeng c 
ShortLength V 
ShortLength */ 
Amps */ 



Tower geometry is tabulated for a three phase, single or double circui 
with 0, 1, or 2 ground wires. Offsets from an arbitrary datum, and 
the height above ground are used. 



CREATE TABLE TowerType 



( 



Object 
Al_Offset 
Al Height 
Bl_Of fset 
Bl_Height 
Cl.Offset 
Cl.Height 
Gl_Of fset 
Gl_Height 
A2_Offset 
A2 .Height 
B2_Offset 
B2_Height 
C2_Of fset 
C2_Height 
G2_Offset 
G2_Height 



INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/• 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 



ForeignKey * 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 



The Person table holds specific attributes for people who 
to be known to the system. 



need 



CREATE TABLE Person 
( Object 

LoginName 

Password 

Initials 

); 



INTEGER NOT NULL WITH DEFAULT /* ForeignKey 1 

CHAR (20) NOT NULL WITH DEFAULT /* Name V 

CHAR (20) NOT NULL WITH DEFAULT /* Name V 

CHAR(4) NOT NULL. WITH DEFAULT /* Initials V 
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Object typing 

The LastKey table contains the last key value used for the different 
key types used in the system. Each key is an integer value that inc renter 
with each use. The key values start at 10000 for user-defined entities. 
System-defined entities are loaded on database initialization with key 
values that are less than 10000. 



CREATE TABLE LastKey 
{ LastKey CHAR(8) 
Value INTEGER 



NOT NULL 
NOT NULL 



); 



List all problems and their descriptions 



CREATE TABLE Problem 

( Problem CHAR (20) 

Severity CHAR(l) 

Description CHAR (60) 



NOT NULL 

NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 



/* KeyName »/ 
/* KeyValue V 



/* Problem */ 
/* Severity V 
/* Description V 



V 



Set up the base type table. This is used to set up base type 
editors and specific table names 



CREATE TABLE BaseType 

( Type INTEGER NOT NULL 

EditorName CHAR (20) WITH NULL 

TableName CHAR (20) WITH NULL 

) ; 



/* ForeignKey */ 
/* Name */ 
/* Name */ 



Set up the type validation table, 
valid type names. 



This table is used to specify the 



CREATE TABLE Type 

( Type INTEGER NOT NULL 

BaseType INTEGER NOT NULL 

Name CHAR (20) NOT NULL 

. ); 



Table containing type - supertype relationships, 
define the SuperType to SubType heirarchy. 



/* Primary Key */ 
/* ForeignKey */ 
/* TypeName */ 



This table is used cc 



ForeignKey */ 
ForeignKey •/ 



CREATE TABLE SuperType 

( Type INTEGER NOT NULL /« 

SuperTYpe INTEGER NOT NULL /< 

) ; 
/* 

* Table containing extended type - supertype relationships. This table 

* is a flattened version of the SuperType table. Each type is cataloged 
with all its Superiypes. 



CREATE TABLE ExtendedType 
( Type INTEGER 
SuperType INTEGER 

) ; 



NOT NULL 
NOT NULL 



/* ForeignKey V 
/* ForeignKey V 
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* Parameters relating to the system being modelled are defined here. 

Frequency is the system base frequency (default 60) 

* MVABase is the system MVA base for per-unit tranformations (default 1C. 
KVReference is the kV to use for per-unit transformations (default 1) 

* LengthRatio is the ratio of the Longlength over the ShortLength 

Typical values are: 1000 for SI units (km / m) (default) 

* " k 5280 for British-American units (mile / foot) 

* GroundResistivity is used in zero sequence calculations (default 100 cr. 
V 

CREATE TABLE SystemParameters 
( Frequency REAL NOT NULL 

MVABase REAL NOT NULL 

KVReference REAL NOT NULL 

LengthRatio REAL NOT NULL 

GroundResistivity REAL NOT NULL 

Temperature CHAR(l) NOT NULL 

) 0 

Validation table for system kV levels 

*/ 

CREATE TABLE KVLevel 

( KVLevel REAL NOT NULL /* KVLevel V 

Name CHAR (20) NOT NULL WITH DEFAULT /* Name */ 

Voltage REAL NOT NULL /* KVLevel V 

) ; 



/* Hertz */ 

/* MVA */ 

/* kV */ 

/* LongLength/ Short 

/* Ohm-ShortLengch , 

/* TemperatureUnits 
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Locations of objects (e.g. address). This table is keyed by the objec: 
which defines the location (typically of type Support Equipment cr 
Organization), but may be referenced by any object 



CREATE TABLE Location 
Object 
Combination 
Phone 
Contact 
LI 
L2 
L3 
L4 

Comment 



INTEGER 

CHAR (4) 

VARCHAR(20) 

VARCHAR(40) 

VARCHAR(80) 

VARCHAR(80) 

VARCHAR(80) 

VARCHAR(80) 



NOT NULL 

NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 



VARCHAR(200) NOT NULL WITH DEFAULT 



/* ForeignKey * •' 

/* LockCombinati. 

/* PhoneNumber * 

/* ContactName * 

/* LocationLine 

/* LocationLine 

/* LocationLine 

/* LocationLine 

/* Comment */ 



Set up the object rating table. Any object can have a set of ratings 
associated with it. The rating type defines the characteristic being 



rated (e.g. Amps, MVA, MW) 
that the ordering is Normal 



CREATE TABLE Rating 

Ob j ect INTEGER 

Type CHAR (10) 

Season INTEGER 

Temperature REAL 

Normal REAL 

ShortTerm REAL 

Emergency REAL 

Loadshed REAL 



Four values can be supplied: it is assumec 
< ShortTerm < Emergency < Loadshed. 



NOT NULL WITH DEFAULT /< 
NOT NULL WITH DEFAULT /* 
NOT NULL WITH DEFAULT /« 
WITH NULL /< 
WITH NULL 
WITH NULL 
WITH NULL 
WITH NULL 



ForeignKey */ 
RatingType */ 
ForeignKey */ 
Temperature */ 



LoadCurves are used to store the time variation of a load class with 
respect to a base value. Families of load curves can be constructed fc 
different seasons and day types (e.g Summer Weekend; Winter Weekday) . 
The values supplied for the curve are interpolated as directed. Load 
curves are constucted for an entire day (00:00:00 to 23:59:59), and 
can be put together by applications to generate a profile as required. 



CREATE TABLE LoadCurve 
( Object 
DayType 
Season 
Temperature 
LoadCurve 
Source 
Interpolate 

CREATE TABLE LoadValue 
LoadCurve 
Time 

LoadValue 
Source 



INTEGER 

INTEGER 

INTEGER 

REAL 

INTEGER 

INTEGER 

CHAR(6) 



INTEGER 
DATE 
REAL 
INTEGER 



WITH NULL /* 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /* 

WITH NULL /* 

NOT NULL WITH DEFAULT /* 

WITH NULL /* 

NOT NULL WITH DEFAULT /* 



ForeignKey */ 
ForeignKey V 
ForeignKey */ 
Temperature */ 
Primary Key V 
Sourceldentif ie 
Interpolation * 



NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /« 

NOT NULL WITH DEFAULT /< 

WITH NULL r 



PrimaryKey */ 
IntervalTime V 
PerUnit */ 
Sourceldentif ie 
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Interactions 



Equipment terminals. Each object can have a variable number of termir 
which can be connected to other terminals. The node is used as a 
common reference between connected terminals. 



'/ 



CREATE TABLE Terminal 

< Object INTEGER 

BaseType INTEGER 

Terminal INTEGER 

Node INTEGER 

KVLevel REAL 



NOT NULL /* ForeignKey 1 

NOT NULL WITH DEFAULT /* ForeignKey ■ 

NOT NULL /* Terminal V 

NOT NULL WITH DEFAULT /* ForeignKey 1 

NOT NULL WITH DEFAULT /* KVLevel V 



/ 



Measurements made on the equipment. Each measurement measures 
something (the measurand) using an agent (the measurer) . 

The measurand has a type (e.g. kV, Status, MW, Amps) that defines 
the quantity being measured. It refers to the object being measured, 
and may be made at no terminal (e.g. fire alarm), at one terminal 
(e.g. voltage), or between two terminals (e.g. breaker status). 

The measurand may be represented by a sensor. This has a type 
(e.g. current, voltage, frequency, position, impulse, contact) and 
a minimum and maximum that are expressed in the units of the 
measurand. 

The measurer has a type (e.g. telemetered, manual, state estimated, 
calculated, from other system) that defines the point of entry of the 
measurement. It may refer to an object that is present at that point 
of entry (e.g. a telemetry input) . 



CREATE TABLE Measurement 



( 



Measurand 
MeasurandType 
Terminal 1 
Terminal 2 
SensorType 
SensorMinimum 
SensorMaximum 
SensorAccuracy 
ReversePolarity 
MeasurerType 
Measurer 
Alarm 
History 
Trigger 
EventLog 
Input 
Output 



INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/♦ 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/• 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/• 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/• 



ForeignKey ' 
ForeignKey * 
ForeignKey * 
ForeignKey * 
ForeignKey 1 
SensorValue 
SensorValue 
Percent */ 
Boolean */ 
ForeignKey * 
ForeignKey * 



/ 
/ 
/ 
/ 
/ 

v 
•/ 



Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 



'/ 



Set up the grouping validation table. This contains the group 
relationships for objects. 



membe 



CREATE TABLE Grouping 
( SystemVersion 
Grouping 
GroupingType 
Member 
MemberType 
Relationship 
Reference 



INTEGER NOT NULL WITH DEFAULT /* ForeignKey 

INTEGER NOT NULL /* ForeignKey 

INTEGER NOT NULL WITH DEFAULT /* ForeignKey 

INTEGER NOT NULL /* ForeignKey 

INTEGER NOT NULL WITH DEFAULT /* ForeignKey 

INTEGER NOT NULL WITH DEFAULT /* ForeignKey 

CHAR (10) NOT NULL WITH DEFAULT /* Reference « 
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Grass catcher cable - somewhere co throw all the problems 



CREATE TABLE GrassCatcher 

Object INTEGER 
Problem CHAR (20) 

Text CHAR (20 ) 

Known INTEGER 



NOT NULL r 

NOT NULL r 

NOT NULL WITH DEFAULT /< 

NOT NULL WITH DEFAULT /• 



ForeignKey V 
ForeignKey */ 
Text */ 
Boolean */ 



Temporary tables used as workspace for procedures embedded in 
the database 



List of terminals connected to objects (identical to Terminal table) 



CREATE TABLE TEMP$TerminalList 
( Object INTEGER 
BaseType INTEGER 
Terminal INTEGER 
Node INTEGER 
KVLevel REAL 



NOT NULL 

NOT NULL WITH DEFAULT 
NOT NULL 

NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 



); 
/* 



List of object and their voltage levels. 



CREATE TABLE TEMP$Obj ectList 
( Object INTEGER 
KVLevel REAL 

) ; 
/• 



NOT NULL 

NOT NULL WITH DEFAULT 



/* ForeignKey */ 

/* ForeignKey */ 

/* Terminal */ 

/* ForeignKey V 

/* KVLevel V 



/* ForeignKey 
/* KVLevel */ 



Table to use as an audit trail of where we have been 



CREATE TABLE TEMP $ Audit Trail 
( Object INTEGER 

) ; 



NOT NULL 



/* ForeignKey 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



MODIFY Object TO BTree UNIQUE 
ON Object; 

MODIFY Capacitor TO BTree UNIQUE 
ON Object; 

MODIFY Conductor TO BTree UNIQUE 
ON Object; 

MODIFY Consumer TO BTree UNIQUE 
ON Object; 

■ MODIFY Generator TO BTree UNIQUE 
ON Object; 

MODIFY Reactor TO BTree UNIQUE 
ON Object; 

MODIFY Switch TO BTree UNIQUE 
ON Object; 

MODIFY Transformer TO BTree UNIQUE 
ON Object; 

MODIFY Winding TO BTree UNIQUE 
On Object, Winding; 

MODIFY TapSetting TO BTree UNIQUE 

On Object, Windingl, TapStepl, Winding2, TapStep2; 

MODIFY Telemetry TO BTree UNIQUE 
ON Object; 

MODIFY Computer TO BTree UNIQUE 
ON Object; 

MODIFY ConductorType TO BTree UNIQUE 
ON Object; 

MODIFY TowerType TO BTree UNIQUE 
ON Object; 

MODIFY Person TO BTree UNIQUE 
ON Object; 

MODIFY Problem TO BTree UNIQ T .:S 
ON Problem; 
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MODIFY BaseType TO BTree UNIQUE 
ON Type; 

MODIFY Type TO BTree UNIQUE 
ON Type, Name; 

MODIFY SuperType TO BTree UNIQUE 
ON Type, SuperType; 

MODIFY ExtendedType TO BTree UNIQUE 
ON Type, SuperType; 

MODIFY KVLevel TO BTree UNIQUE 
ON KVLevel; 

MODIFY Location TO BTree UNIQUE 
ON Object; 

MODIFY Rating TO BTree UNIQUE 
ON Object, Type; 

MODIFY LoadCurve TO BTree UNIQUE 

ON Object, DayType, Season, Temperature; 

MODIFY LoadValue TO BTree UNIQUE 
ON LoadCurve, Time; 

MODIFY Terminal TO BTree UNIQUE 
ON Object, Terminal, Node; 

MODIFY Measurement TO Btree UNIQUE 

ON Measurand, MeasurandType, Terminall, Terminal2; 

MODIFY Grouping TO BTree UNIQUE 

ON Grouping, Relationship, Member; 

MODIFY GrassCatcher TO BTree /* Also done in GrassCatcher frame */ 
ON Object, Problem; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



CREATE UNIQUE INDEX Object $1 

ON Object (Type, PrimaryGroupingName, Name) 
WITH STRUCTURE = BTREE; 

CREATE UNIQUE INDEX Object$2 

ON Object (PrimaryGrouping, Object) 
WITH STRUCTURE = BTREE? 

CREATE UNIQUE INDEX LoadCurveSl ON LoadCurve 
(LoadCurve) 

WITH STRUCTURE = BTree; 

•CREATE UNIQUE INDEX ExtendedTypeSl 

ON ExtendedType (SuperType, Type) 
WITH STRUCTURE = BTREE; 

CREATE UNIQUE INDEX Terminal $1 ON Terminal 
(Node, Object, Terminal) 
WITH STRUCTURE = BTree; 

CREATE UNIQUE INDEX Groupings 1 ON Grouping 
(Member, Relationship, Grouping) 
WITH STRUCTURE = BTree; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/• 

This file contain rules that fire in order to trigger external 

* notification events to interested parties. The events themselves, 

* plus a generic procedure to raise them, are also defined here. 
* 

* The rules in this file are not required to be active. Therefore 

* every rule that is defined in this file must have a corresponding 

* entry in the file "drop_notif ication. sql" , which can be 

* executed to drop the rules when desired. A nawk program, 

* create_to_drop.nawk exists for this purpose, and can be run 

* with the command: 

* -nawk -f create_to_drop.nawk\ 

* create_notif ication. sql\ 
> drop_notif ication. sql M 

V 
/* 

* Define the events that can be raised 
V 

CREATE DBEVENT Udb_ChangeName ; 
CREATE DBEVENT Udb_ChangeOb j ect ; 
CREATE DBEVENT Udb_ChangeElectrical ; 
CREATE DBEVENT Udb_ChangeConnectivity ; 

/* 

* Handle changes to the object record 
V 

CREATE PROCEDURE Udb_C hang e$ Name 

( PrimaryGroupingName VARCHAR(20) NOT NULL 

TypeName VARCHAR(20) NOT NULL 

Name VARCHAR{20) NOT NULL 

) = 

DECLARE 

Event Text VARCHAR(256) NOT NULL; 

BEGIN 

EventText = SQUEEZE {PrimaryGroupingName + ' ' + TypeName + ' ' + Nam 
RAISE DBEVENT Udb_ChangeName : EventText ; 

END; 

CREATE RULE Udb Change $Name 

AFTER INSERT, UPDATE ON Object 

WHERE Old. PrimaryGroupingName != New. PrimaryGroupingName OR 

Old. TypeName != New. TypeName OR 

Old. Name != New. Name 
EXECUTE PROCEDURE Udb_Change$Name 
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PrimaryGroupingName = New. PrimaryGroupingName 
TypeName = New . TypeName 
Name = New. Name 



) ; 



CREATE PROCEDURE Udb_Change$Obj ect 
( Tid INTEGER 



NOT NULL; 
NOT NULL; 
NOT NULL; 
NOT NULL; 



) = 

DECLARE 

PrimaryGroupingName VARCHAR(20) 
TypeName VARCHAR(20) 
Name VARCHAR(20) 
EventText VARCHAR ( 256 ) 

BEGIN 

SELECT : PrimaryGroupingName = 0. PrimaryGroupingName, 

: TypeName = 0. TypeName, 

:Name = O.Name 
FROM Object 0 
WHERE :Tid = O.Tid; 

EventText » SQUEEZE (PrimaryGroupingName + ' ' + TypeName + 
RAISE DBEVENT Udb_ChangeObject : EventText; 

END; 

CREATE RULE Udb ChangeSObject 

AFTER INSERT, UPDATE ON Object 

WHERE Old. Description != New. Description OR , 

Old. Comment != New. Comment OR 

Old. Terminals != New. Terminals OR 

Old.InService != New. InService OR 

Old.OutService != New. Out Service OR 

Old.PositionX != New. Posit ionX OR 

Old.PositionY != New.PositionY OR 

Old.OwnerNumber != New. Owner Number OR 

Old.SerialNumber != New. SerialNumber OR ■ 

Old.SpecNumber != New. SpecNumber 
EXECUTE PROCEDURE Udb_Change$ Object 
( Tid = New. Tid 



Name) 



Conducting plant 



CREATE PROCEDURE Udb_Change$Electrical 
( Object INTEGER 



NOT NULL; 
NOT NULL; 
NOT NULL; 
NOT NULL; 



) 

DECLARE 

PrimaryGroupingName VARCHAR (20) 
TypeName VARCHAR (20) 

Name VARCHAR (20) 

EventText VARCHAR (256) 

BEGIN 

SELECT : PrimaryGroupingName = O. PrimaryGroupingName, 

: TypeName = O. TypeName, 

:Name = O.Name 
FROM Object 0 
WHERE : Object = O.Object; 

EventText = SQUEEZE (PrimaryGroupingName + ' ' + TypeName 
RAISE DBEVENT Udb_ChangeElectrical :EventText; 

END; 

CREATE RULE Udb_Change$Capacitor 

AFTER INSERT, UPDATE ON Capacitor 
EXECUTE PROCEDURE Udb_Change$ Electrical 
( Object = New. Object 

) ; 



+ Name : 



CREATE RULE Udb_Change$Conductor 
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AFTER INSERT, UPDATE ON Conductor 
EXECUTE PROCEDURE Udb_Change$Electrical 
{ Object - New. Object 
); 

CREATE RULE Udb_Change$Consumer 

AFTER INSERT, UPDATE ON Consumer 

WHERE Old.Pfixed != New.Pfixed OR 
Old.Qfixed != New.Qfixed OR 
Old . Pnom ! = New . Pnom OR 
Old.Qnom != New.Qnom OR 
Old.PVexp != New.PVexp OR 
Old.QVexp != New.QVexp OR 
Old.PFexp • = New.PFexp OR 
Old.QFexp != New.QFexp 

EXECUTE PROCEDURE Udb_Change$Electrical 

( Object = New. Object 

); 

CREATE RULE Udb_Change$Generator 

AFTER INSERT, UPDATE ON Generator 
EXECUTE PROCEDURE Udb_Change$Electrical 
{ Object = New. Object 

); 

CREATE RULE Udb_Change$ React or 

AFTER INSERT, UPDATE ON Reactor 
EXECUTE PROCEDURE Udb_Change$ Electrical 
( Object = New. Object 

>; 

♦ CREATE RULE Udb_Change$ Switch 

AFTER INSERT, UPDATE ON Switch 

EXECUTE PROCEDURE Udb_Change$Electrical 

( Object = New. Object 

>; 

CREATE RULE Udb_Change$Trans former 

AFTER INSERT, UPDATE ON Transformer 
EXECUTE PROCEDURE Udb_Change$ Electrical 
( Object = New. Object 
); 

CREATE RULE Udb_Change$ Winding 

AFTER INSERT, UPDATE ON Winding 
EXECUTE PROCEDURE Udb_Change$ Electrical 
( Object = New. Object 
); 

CREATE RULE Udb_Change$TapSetting 

AFTER INSERT, UPDATE ON TapSetting 
EXECUTE PROCEDURE Udb_Change$ Electrical 
( Object = New. Object 

); 

/• 

* Specifications 
*/ 

/* 

* Interactions 

V 

CREATE PROCEDURE Udb_Change$ Connect ivity 
( Object INTEGER 
) = 

DECLARE 

PrimaryGroupingName VARCHAR(20) NOT NULL; 
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TypeName VARCHAR{20) NOT NULL; 

Name VARCHAR(20) NOT NULL; 

EventText VARCHAR(256) NOT NULL; 

BEGIN 

SELECT : Prima ryGroupingName = 0. PrimaryGroupingName, 

: TypeName = 0. TypeName, 

:Name = O.Name 
FROM Object 0 
WHERE : Object = O.Object; 

EventText = SQUEEZE (PrimaryGroupingName + ' ' + TypeName + ' ' + Nar 
RAISE DBEVENT Udb_ChangeConnectivity : EventText; 

END; 



CREATE RULE Udb Change $Terminal 

AFTER INSERT, UPDATE ON Terminal 

WHERE Old. Node != New. Node 

EXECUTE PROCEDURE Udb_Change$Connectivity 

( Object = New. Object 

); 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 

* Generic reject procedure 
*/ 

CREATE PROCEDURE Reject (Problem VARCHAR(20) NOT NULL) 
BEGIN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (0, : Problem); 

END; 

. /* 

* Object table 
*/ 

/* 

* Sort out an object on insert 
*/ 

CREATE PROCEDURE Object$ Insert 
Tid INTEGER 
Object INTEGER 
SystemVersion INTEGER 
Type INTEGER 
PrimaryGrouping INTEGER 
Terminals INTEGER 

DECLARE 

BaseType INTEGER; 
Tabl eName VARCHAR (20); 



Loop INTEGER; 
AddGrouping INTEGER; 



BEGIN 



Get the base type from the type. If neither is good, reject 
the insert. 

SELECT : BaseType = BT . Type , 

: Tabl eName = BT.TableName 
FROM Type T, 

BaseType BT 
WHERE :Type = T.Type AND 

T. BaseType = BT . Type ; 

IF BaseType = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (: Object, 'Object J) 12 ' ) ; 

ENDIF; 

Set up the key for the object if one was not supplied, and ensure 
that the object is in its primary group 



WO 94/06087 



PCT/US93/08233 



53 

AddGrouping = 0; 

IF Object = -1 THEN 
UPDATE Last Key K 
SET Value = K. Value + 1 
WHERE K.LastKey = 'Object'; 

SELECT : Object = K. Value 

FROM La st Key K 

WHERE K.LastKey = 'Object'; 

IF PrimaryGrouping 1= 0 THEN 

AddGrouping = 1; 
ENDIF; 

ENDIF; 

Set the object key and base type. 

Get the type name from the type record and 

get the primary grouping name from its object record. 

Set up the creation date and user 

UPDATE Object 0 
FROM Type T, 

Object PG 
SET Object = : Object, 

BaseType = : BaseType, 

Type Name = T.Name, 

PrimaryGroupingName = PG.Name, 

Created = 'Now', 

CreatedBy = VARCHAR (User) 
WHERE :Type = T.Type AND 

: PrimaryGrouping = PG. Object AND 

:Tid = O.Tid; 

IF AddGrouping = 1 THEN 
INSERT INTO Grouping 
(SystemVersion 
, Grouping 
, Member 
Relationship 
) 

VALUES 

( : SystemVersion 
, : PrimaryGrouping 
, : Object 

,52 /* Type$member_of */ 
) ; 

ENDIF; 

Insert terminals for the object 
Loop = 1; 

WHILE Loop <= Terminals DO 
INSERT INTO Terminal 
(Object 
, BaseType 
, Terminal 
) 

VALUES 

( :Object 
, : BaseType 
, :Loop 

) ; 



WO 94/06087 



PCT/US93/08233 



54 

Loop = Loop + 1; 
ENDWHILE; 

/* 

* Insert the associated type specific row (if any) 

*/ 

IF TableName = • ' THEN 

TabieName = TableName; /* Do nothing */ 
ELSEIF TableName = 'Generator' THEN 

INSERT INTO Generator (Object) VALUES (: Object); 
ELSEIF TableName = 'Consumer' THEN 

INSERT INTO Consumer (Object) VALUES (:Object); 
ELSEIF TableName = 'Capacitor' THEN 

INSERT INTO Capacitor (Object) VALUES (rObject); 
ELSEIF TableName = 'Reactor' THEN 

INSERT INTO Reactor (Object) VALUES (rObject); 
ELSEIF TableName = 'Switch' THEN 

INSERT INTO Switch (Object) VALUES (rObject); 
ELSEIF TableName = 'Transformer' THEN 

INSERT INTO Transformer (Object) VALUES (rObject); 
ELSEIF TableName = ' BreakerSensor ' THEN 

TableName = TableName; /*** NYI ***/ 
ELSEIF TableName = 'Telemetry' THEN 

INSERT INTO Telemetry (Object) VALUES (rObject); 
ELSEIF TableName = 'Toweriype' THEN 

INSERT INTO TowerType (Object) VALUES (rObject); 
ELSEIF TableName = 'ConductorType' THEN 

INSERT INTO ConductorType (Object) VALUES (: Object); 
ELSEIF TableName = 'Conductor' THEN 

INSERT INTO Conductor (Object) VALUES (rObject); 
ELSEIF TableName = 'Computer' THEN 

INSERT INTO Computer (Object) VALUES (:Object); 
ELSEIF TableName = 'Person' THEN 

INSERT INTO Person (Object) VALUES (rObject); 
ENDIF; 



END; 

/* 

* Do validation on an object 

V 

CREATE PROCEDURE ObjectSValidate 
- ( Object INTEGER 
InService DATE 
OutService DATE 

) = 

BEGIN 



IF InService > OutService THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (: Object, 'Object 001'); 

ENDIF; 



END; 



Maintain -the PrimaryGroupingName in the objects that reference 
* this one as their primary group 

V 

CREATE PROCEDURE Object $Name 



Tid 
BaseType 

BEGIN 

UPDATE 
FROM 
SET 
WHERE 



INTEGER 
INTEGER 



Object 0 
Object PG 

PrimaryGroupingName = PG.Name 

:Tid = PG.Tid AND 

PG. Object = O.PrimaryGrouping; 
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END; 

/• 

* Maintain the TypeName in the Object 
V 

CREATE PROCEDURE Object $TypeName 
( Tid INTEGER 
} = 

BEGIN 

UPDATE Object 0 
FROM Type T 
SET TypeName = T.Name 
WHERE T.Type = O.Type AND 
O.Tid = :Tid; 

END; 

/* 

* Ensure that the object always belongs to its primary group. 

* If the object is a Consumer, then update the load model. 
V 

CREATE PROCEDURE Object $ Primary Grouping 
( Tid INTEGER 

Object INTEGER 

SystemVersion INTEGER 

01d_PrimaryGrouping INTEGER 

New_PrimaryGrouping INTEGER 

DECLARE 

References INTEGER NOT NULL; 

BEGIN 

/• 

* If there is a primary grouping defined, ensure that the 

* object exists as a member of the group 

V 

IF New_PrimaryGrouping ! = 0 THEN 

SELECT : References = COUNT(*) 
FROM Grouping G 

WHERE :New_PrimaryGrouping = G. Grouping AND 
: Object = G. Member; 

IF References = 0 THEN 
INSERT INTO Grouping 
(SystemVersion 
, Grouping 
, Member 
, Relationship 
) 

VALUES 

( : SystemVersion 

, :New_PrimaryGrouping 

, : Object 

,52 /* Type$member_of */ 

); 

ENDIF; 
ENDIF; 

/* 

* Ensure that the primary grouping name for the object is correct 
V 

UPDATE Object 0 
FROM Object PG 

SET PrimaryGroupingName = PG.Name 
WHERE :New_PrimaryGrouping = PG. Object AND 
O.Tid = :Tid; 

/* 
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Blindly update the load model. Nothing will happen unless this cbje 
is a consumer and the primary grouping is also a consumer. 
If this consumer has been detached from a higher level part of the 
load model, set its percentages to 100. 

V 

UPDATE Consumer LM 
FROM Consumer C 

SET Pfixed = IFNULL ( LM . PFixed, 0 ) - IFNULL (C . Pfixed, 0 ) , 
Pnom = IFNULL (LM. Pnom, 0 ) - IFNULL (C . Pnom, 0 ) , 
Qfixed = IFNULL ( LM . QFixed , 0 ) - IFNULL (C .Qf ixed, 0) , 
Qnom = IFNULL (LM.Qnom,0) - IFNULL (C.Qnom, 0 ) 

WHERE -.Object = C. Object AND 

:01d_PnmaryGrouping = LM.Object; 



UPDATE Consumer LM 
FROM Consumer C 

SET Pfixed = IFNULL (LM. PFixed, 0) + IFNULL (C . Pfixed, 0 ) , 

Pnom = IFNULL (LM. Pnom, 0) + IFNULL (C. Pnom, 0) , 
Qfixed = IFNULL (LM. QFixed, 0) + IFNULL (C .Qfixed, 0) , 
Qnom = IFNULL (LM. Qnom, 0) + IFNULL (C .Qnom, 0) 

WHERE : Object = C. Object AND 

:New_PrimaryGrouping = LM.Object; 



IF IIRowCount = 0 THEN 
UPDATE Consumer C 
SET PfixedPct = 100, 
PnomPct = 100, 
QfixedPct = 100, 
QnomPct = 100 
WHERE : Object = C. Object ; 
ENDIF; 



END; 

/* 

* Conducting plant validation 

•/ 

CREATE PROCEDURE Conductor$Validate 
( Ob j ect INTEGER 
R REAL 
X REAL 
Bch REAL 

) = 

BEGIN 



IF (X / R) < 5 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (:Object, 'Conductor J) 01 ' ) ; 

ENDIF; 

END; 

/* 

* Update the load model when a consumer is changed 

*/ 

CREATE PROCEDURE Consumer$UpdateLoadModel 
( Object INTEGER 

Old Pfixed REAL 

New_Pfixed REAL 

01d_Pnom REAL 

New_Pnom REAL 

01d_Qfixed REAL 

New_Q fixed REAL 

01d_Qnom REAL 

New_Qnom REAL 

) = 

BEGIN 

/• 
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Recursively update the hierarchy of consumers in the load model 
from the bottom up. This will stop when an object that is not a 
consumer is encountered 



UPDATE 

FROM 

SET 



Consumer 
Object 0 
Pf ixed 



LM 



IFNULL (Old_Pnom,0) ) , 



WHERE 



= IFNULL ( LM . PFixed , 0 ) + 
(IFNULL (New_Pf ixed, 0) - IFNULL (01d_Pf ixed, 0 ) ) 
Pnom = IFNULL ( LM . Pnom, 0 ) + 
( IFNULL (New_Pnom, 0 ) 
Qfixed = IFNULL (LM.QFixed, 0) + 

{ IFNULL (New.Qf ixed, 0) - IFNULL (01d_Qf ixed, 0) 
Qnom = IFNULL (LM.Qnom, 0) + 

( IFNULL (New_Qnom, 0 ) - IFNULL (01d_Qnom, 0 ) ) 
: Object = O. Object AND 
O.PrimaryGrouping = LM. Object; 



If we have hit the top this consumer represents 100% of the 
load in its hierarchy. Set this up to trigger a re-calculation 
of all the child consumer percentages. 

IF IIRowCount = 0 THEN 
UPDATE Consumer C 
SET PfixedPct = 100, 
PnomPct =100, 
QfixedPct =100, 
QnomPct = 100, 
TopLoadArea = C. Object 
WHERE : Object = C.Object; 
ENDIF; 



END; 



Update the distribution of the loads by percentage from the 
top down. 



CREATE PROCEDURE Consumer$UpdateLoadPct 



( 



Object 
Pf ixed 
Pnom 
Qfixed 
Qnom 

PfixedPct 

PnomPct 

QfixedPct 

QnomPct 

TopLoadArea 



INTEGER 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
INTEGER 



BEGIN 



If there is the possibility of a divide by zero, then use a trash 
(but safe) value as the divisor, and force the result to zero 

IF ABS(Pfixed) < 0.0000001 THEN 

PFixed = 1; 

PFixedPct = 0; 
ENDIF; 

IF ABS(Pnom) < 0.0000001 THEN 

PNom = 1; 

PNomPct = 0; 
ENDIF; 

IF ABS (Qfixed) < 0.0000001 THEN 
QFixed = 1; 
QFixedPct = 0; 
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ENDIF; 

IF ABS (Qnom) < 0.0000001 THEN 

QNom = 1; 

QNomPct = 0; 
ENDIF; 

/• 

Recalculate the child percentages 

•/ 

UPDATE Consumer C 
FROM Object 0 

SET PfixedPct = (C.Pfixed / :Pfixed) * :PfixedPct, 
PnomPct = (C.Pnom / : Pnom) * :PnomPct, 
QfixedPct = (C.Qfixed / :Qfixed) * :QfixedPct, 
QnomPct = (C.Qnom / :Qnom) * :QnomPct, 
TopLoadArea = :TopLoadArea 

WHERE : Object = 0. Primary Grouping AND 
O. Object = C. Object; 

END; 

/* 

* Ensure that the winding belongs to a transformer and 

* get the next sequence number 
v 

CREATE PROCEDURE Windings Insert 
( Tid INTEGER 

Object INTEGER 

KVLevel REAL 



) 



DECLARE 

BaseType INTEGER; 

References INTEGER NOT NULL; 

MaxSeq INTEGER; 

BEGIN 

SELECT : BaseType = 0. BaseType 

FROM Object O 

WHERE : Object s O. Object; 

IF BaseType != 27 THEN /* TypeSTrans former */ 
INSERT INTO GrassCatcher (Object, Problem) 
VALUES (:Object, 'Transf ormer.008 ' ) ; 

ENDIF; 

Get a sequence number for the winding 

SELECT MaxSeq = MAX (Winding) 

FROM Winding 

WHERE Object = : Object ; 

IF MaxSeq IS NULL THEN 
MaxSeq = 1; 

ELSE 

MaxSeq = MaxSeq + 1; 
ENDIF; 

Update the number of terminals for the transformer 
UPDATE Object 

SET Terminals = Terminals + 1 
WHERE Object = : Object ; 

INSERT INTO Terminal 
(Object 
, BaseType 
, Terminal 
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Object 
BaseType 
MaxSeq 
KVLevel 



Update the winding last cos it can change the Tid 

: MaxSeq 



UPDATE Winding 
SET Winding 
WHERE Tid = :Tid; 



END; 



Validate the attributes of a winding 



CREATE PROCEDURE WindingSValidate 



( 



) = 



Object 
Name 
LoadTapChanger 
NominalKV 
NeutralKV 
LowStep 
HighStep 
NeutralStep 
StepSize 

DECLARE 
Steps 
KVDif f 



INTEGER 
CHAR (10) 
INTEGER 
REAL 
REAL 
INTEGER 
INTEGER 
INTEGER 
REAL 



INTEGER; 
REAL; 



BEGIN 



IF LoadTapChanger != 0 AND LoadTapChanger != 1 THEN 
INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (:Object, Name, 'Transformer^ 03 ' ) ; 

ENDIF; 

IF LowStep > HighStep THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (:Object, Name, ' Trans forme r_0 04 ' ) ; 

ENDIF; 

IF NeutralStep < LowStep THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES ( :Object, Name, ' Trans f ormer_0 05 ' ) ; 

ENDIF; 

IF NeutralStep > HighStep THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (:Object, Name, 'Transformer^ 06 ' ) ; 

ENDIF; 

IF StepSize = 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (:Object, Name, ' Trans former_0 07 ') ; 

ENDIF; 

IF NeutralKV = NominalKV THEN 

Steps s 0; 
ELSEIF NeutralKV > NominalKV THEN 

Steps = LowStep - NeutralStep; /• negative steps to get there v 
ELSEIF NeutralKV < NominalKV THEN 
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Steps = HighStep - NeutralStep; /* positive steps to gee there 
ENDIF; 

KVDiff = ABS (Steps * StepSize * NeutralKV / 100); 

KVDiff = KVDiff + (NeutralKV * 0.10); /* Allow 10% overdrive •/ 

IF KVDiff < ABS (NeutralKV - NominalKV) THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (:Object, Name, ' Trans former_001 ') ; 

ENDIF; 

IF StepSi2e > 10 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (:Object, Name, ' Trans former_0 02 ') ; 

ENDIF; 

END; 

/* 

Clean up on delete of a winding 

*/ 

CREATE PROCEDURE Winding$Delete 
( Object INTEGER 
Winding INTEGER 

) = 

BEGIN 

/* 

* Reduce the number of terminals for this transformer 
V 

DELETE FROM Terminal 
WHERE Object = : Object AND 
Terminal = : Winding; 

UPDATE Object 

SET Terminals = Terminals - :IIRowCount 
WHERE Object = :Object; 

END; 

/* 

* Validate the attributes for a tap setting 

V 

- CREATE PROCEDURE TapSetting$Validate 
Object INTEGER 
Windingl INTEGER 
TapStepl INTEGER 
Winding2 INTEGER 
TapStep2 INTEGER 
Winding3 INTEGER 
TapStep3 INTEGER 

DECLARE 

LowStep INTEGER WITH NULL; 

HighStep INTEGER WITH NULL;. 



BEGIN 



LowStep = NULL; 
HighStep = NULL; 

SELECT : LowStep = W. LowStep, 

: HighStep = W. HighStep 
FROM Winding W 
WHERE W. Object = : Object AND 

W. Winding = : Windingl; 

IF LowStep IS NULL AND HighStep IS NULL THEN 
INSERT INTO GrassCatcher (Object, Problem) 
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VALUES {: Object, ' Transformer^ 09 ' > ; 
ELSEIF TapStepl < LowScep OR TapStepl > HighStep THEN 
INSERT INTO GrassCatcher (Object, Problem) 
VALUES (: Object, ' Trans former_010 ') ; 

ENDIF; 

LowStep = NULL; 
HighStep = NULL; 

SELECT : LowStep = W. LowStep, 

: HighStep = W. HighStep 
FROM Winding W 
WHERE W. Object = : Object AND 
W. Winding = :Winding2; 

IF LowStep IS NULL AND HighStep IS NULL THEN 
INSERT INTO GrassCatcher (Object, Problem) 
VALUES (:Object, ' Trans former_0 09 ' ) ; 
ELSEIF TapStep2 < LowStep OR TapStep2 > HighStep THEN 
INSERT INTO GrassCatcher (Object, Problem) 
VALUES (rObject, ' Trans former_0 10 ') ; 

ENDIF; 

LowStep = NULL; 
HighStep = NULL; 

SELECT : LowStep = W. LowStep, 

: HighStep = W, HighStep 
FROM Winding W 
WHERE W. Object = : Object AND 
W. Winding = :Winding3; 

IF LowStep IS NULL AND HighStep IS NULL THEN 
/* May not be a three way measurement */ 

LowStep = HighStep; /* Empty statement blocks not allowed! 

ELSEIF TapStep3 < LowStep OR TapStep3 > HighStep THEN 
INSERT INTO GrassCatcher (Object, Problem) 
VALUES (:Object, ' Transformer^ 10 9 ) ; 

ENDIF; 

END; 

Specifications 

Get the surrogate key set up on inserts 



CREATE PROCEDURE LoadCurve$ Insert 
( Tid INTEGER 
LoadCurve INTEGER 

) = 



BEGIN 



IF LoadCurve = -1 THEN 
UPDATE LastKey 
SET Value = Value + 1 
WHERE LastKey = 'Curves'; 

UPDATE LoadCurve C 

FROM LastKey K 

SET LoadCurve = K. Value 

WHERE C.Tid = :Tid AND 

K. LastKey = 'Curves' ; 

ENDIF; 



END? 
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/• 

Check the referenced types exist on inserts 

*/ 

CREATE PROCEDURE SuperType$ Insert 
( Type INTEGER 

SuperType INTEGER 

) = 

DECLARE 

References INTEGER NOT NULL; 

BEGIN 

SELECT References = COUNT(*) 

FROM Type 

WHERE Type = :Type; 

IF References = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (0, "iype_004'); 

ENDIF; 

SELECT .-References = COUNT(*) 
FROM Type 

WHERE Type = : SuperType; 

IF References = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (0, 'Type_005'); 

ENDIF; 

/* 

* Insert the type and all its supertypes as 

* supertypes in the extended type list 
V 

INSERT INTO ExtendedType 
(Type 

, SuperType 
) 

VALUES 

( :Type 
, :Type 

) ; 

INSERT INTO ExtendedType 
(Type 

, SuperType 

) 

SELECT :Type, 

SuperType 
FROM ExtendedType 
WHERE Type = : SuperType; 

END; 

* Ensure that there are no references to the sub-type on delete 
V 

CREATE PROCEDURE SuperType $ Delete 
( Type INTEGER 
) = 

DECLARE 

References INTEGER NOT NULL; 
Name CHAR (20) NOT NULL; 

BEGIN 

SELECT :Name = T.Name 
FROM Type T 
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WHERE :Type = T.Type; 

SELECT : References = COUNTf) 

FROM SuperType ST 

WHERE :Type = ST. SuperType; 

IF References != 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (0, :Name, 'Type_001'); 

ENDIF; 

SELECT : References = COUNT(*) 
FROM Object 0 
WHERE :Type = O.Type; 

IF References != 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (0, :Name, 'Type_002 ' ) ; 

ENDIF; 

DELETE FROM ExtendedType 
WHERE :Type = Type; 

END; 

Get the surrogate key set up on inserts 

V 

CREATE PROCEDURE TypeS Insert 
( Tid INTEGER 
Type INTEGER 

) = 

BEGIN 

IF Type = -1 THEN 
UPDATE LastKey 
SET Value = Value + 1 
WHERE LastKey = 'Type'; 

UPDATE Type C 

FROM LastKey K 

SET Type = K. Value 

WHERE C.Tid - :Tid AND 

K. LastKey = "iype'; 

ENDIF; 

END; 

/* 

* Prevent delete if the type is referenced in the 

* super-type - sub-type heirarchy 

V 

CREATE PROCEDURE iype$Delete 
( Type INTEGER 

Name VARCHAR (20) 

) = 

DECLARE 

References INTEGER NOT NULL; 
BEGIN 



* 



Verify that the Type is not a system type 

IF Type < 10000 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (0, :Name, 'Type_003') ; 

ENDIF; 

Verify that the Type is not a supertype 
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SELECT : References = COUNTC) 

FROM SuperType 

WHERE SuperType = : Type; 

IF References ! = 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (0, :Name, 'Type 001'); 

ENDIF; 

END; 

/* 

* Propagate any change to the value of a kVLevel 
*/ 

CREATE PROCEDURE kVLevel $UpdateJcVLevel 
( OldJcVLevel REAL 
New_kVLevel REAL 

) = 

BEGIN 

UPDATE Terminal T 

SET kVLevel = :New_kVLevel 

WHERE : OldJcVLevel = T. kVLevel; 

END; 

/* 

* Block delete of a kVLevel if there are any 

* terminals at that voltage 
V 

CREATE PROCEDURE kVLevel $Delete 
( kVLevel REAL 
) = 

DECLARE 

References INTEGER NOT NULL; 
BEGIN 

SELECT : References = COUNTf*) 

FROM Terminal T 

WHERE : kVLevel = T. kVLevel; 

IF References ! = 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (0, VARCHAR( : kVLevel ) , 'Object 002'); 

ENDIF; 

END; 

/* 

* Propagate the transformer terminal voltage levels across all the 

* connected terminals. 

V 

CREATE PROCEDURE kVLevel $ Propagate 
DECLARE 

stext varchar(40) not null; 

Loop INTEGER NOT NULL; 

Maxlt era t ions INTEGER NOT NULL; 
BEGIN 

DELETE FROM TEMPSTerminalList ; 
DELETE FROM TEMP$ObjectList.; 
DELETE FROM TEMP $ Audit Trail ; 

/* 

* Build a list of all the transformer terminals to use as a start poini, 

* and record the fact that they have been processed. 
*/ 

INSERT INTO TEMPSTerminalList 

SELECT * 

FROM Terminal 

WHERE BaseType = 27; /* Type$ Trans former */ 

INSERT INTO TEMPSAuditTrail 
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SELECT Object 

FROM TEMPSTerminalList ; 

/* 

Loop, looking for new objects, and set their terminal kv levels up 

* when they are found 
V 

Loop = 1; 

Maxlterations = 40; 

WHILE Loop <= Maxlterations DO 

/* 

Get a list of all the objects connected to the terminals in the 

* terminal list, propagating the voltage from the terminal list 
*/ 

DELETE FROM TEMPSObjectList; 
INSERT INTO TEMPSObjectList 

(Object 

, kVLevel 

) 

SELECT DISTINCT 
T. Object, 
TL. kVLevel 
FROM Terminal T, 

TEMPSTerminalList TL 
WHERE TL . Node = T.Node AND /* same node */ 

TL. Object != T. Object; /* different object */ 

/* 

* Discard any that have already been visited, set the voltage levels 

* for all the terminals of those that remain, and add them to the 

* audit trail 

V 

DELETE FROM TEMP$ObjectList OL 

WHERE OL. Object = (SELECT Object FROM TEMPSAuditTrail) ; 

UPDATE Terminal T 

FROM TEMPSObjectList OL 

SET kVLevel = OL.kVLevel 

WHERE T. Object = OL. Object AND /* object in object list 

T.Node >= 10000; /* not a system node V 

INSERT INTO TEMP$ Audit Trail 
SELECT DISTINCT Object 
FROM TEMPS Ob j ectLis t ; 

/* 

* Find all the other terminals for these objects 
V 

DELETE FROM TEMPSTerminalList; 
INSERT INTO TEMPSTerminalList 
SELECT DISTINCT T.* 
FROM Terminal T, 

TEMPSObjectList OL 
WHERE OL. Object = T. Object AND /* same object */ 

T.Node >= 10000; /* not a system node */ 

IF IIRowCount = 0 THEN 

ENDLOOP; 
ENDIF; 

Loop = Loop + 1; 
ENDWHILE; 

/• 

create table objectlist as 
select object 
from object 
where basetype != 27 and 
terminals > 1; 
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select ol. object 
from objectlist ol, 

terminal tl, 

terminal t2 

where ol. object = TEMP$objectlist .object and 
ol. object s t2. object and 
tl. terminal ! = t2. terminal and 
tl.node >= 10000 and 
t2.node >= 10000 and 
tl.kvlevel != t2.kvlevel; 



V 
/* 



END; 

Interactions 



* Check that not too many terminals are being used 
V 

CREATE PROCEDURE Terminal $ Validate 
( Tid INTEGER 

Object INTEGER 

) = 

DECLARE 

References INTEGER; 

MaxTerm INTEGER; 
BEGIN 

SELECT : References = COUNT!*) 
FROM Terminal 
WHERE Object = : Object AND 
Terminal > 0; 

SELECT : MaxTerm = Terminals 

FROM Object 

WHERE Object s : Object; 

IF References > MaxTerm THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (:Object, 'Object_003 ' ) ; 

ENDIF; 

END; 

/♦ 

* Check the referenced objects exist on inserts 
V 

CREATE PROCEDURE Groupings Insert 
(Tid INTEGER 
, Grouping INTEGER 
, Member INTEGER 
) = 

DECLARE 

Groupingiype INTEGER WITH NULL; 

MemberType INTEGER WITH NULL; 

BEGIN 

GroupingType = NULL; 

SELECT : GroupingType = Type 

FROM Object 

WHERE Object = : Grouping; 

IF GroupingType IS NULL THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (0, 'Object_004') ; 

ENDIF; 



MemberType = NULL; 
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SELECT : MemberType = Type 

FROM Object 

WHERE Object = : Member; 

IF MemberType IS NULL THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (0, 'Object_005' ) ; 

ENDIF; 

UPDATE Grouping 

SET GroupingType = : Group ingType, 

MemberType = : MemberType 
WHERE :Tid = Tid; 

END; 

CREATE PROCEDURE GrassCatcher$Insert 
(Tid INTEGER 
, Object INTEGER 
problem CHAR (20) 

,Text CHAR (20) 

) = 

DECLARE 

References INTEGER NOT NULL; 
Description CHAR (60) NOT NULL; 
Severity CHAR(l) NOT NULL; 

BEGIN 

/* 

* Get rid of this entry if it is a duplicate 
*/ 

SELECT References = COUNT(') 

FROM GrassCatcher 

WHERE : Object = Object AND 

: Problem = Problem AND 

:Text = Text; 

IF References > 1 THEN 

DELETE FROM GrassCatcher 

WHERE :Tid = Tid; 
ENDIF; 

/* 

* Show the problem description, and blow the transaction away 

* if the error is fatal 
V 

SELECT : Description = Prescription, 

: Severity = P. Severity 
FROM Problem P 
WHERE : Problem = P. Problem; 

IF Severity = 'F' THEN 

RAISE ERROR -1 Description; 

ELSE 

MESSAGE 0 Description; 
ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 

* This file contain rules that fire in order to ensure referential 

* integrity. Typically, there is one for an insert on every table: 

* (TableName$Insertl) and one for a deletion on every table: 

* (TableName$Delete) . There also may be a rule that fires on an 
update of a specific column (TableName$Update_ColumnName) if that 

* change requires a check on the REFERENTIAL- validity of the 

* modification. 
* 

The rules in this file are required to be active. 

V 
/* 

* Object table 
V 

CREATE RULE Object $ Insert 1 
AFTER INSERT ON Object 
EXECUTE PROCEDURE Object$Insert 
( Tid = New.Tid 
, Object = New. Object 
, SystemVersion = New. SystemVersion 
, Type = New. Type 

PrimaryGrouping = New.PrimaryGrouping 
, Terminals a New. Terminals 

CREATE RULE Obj ect$Delete 
AFTER DELETE ON Object 
EXECUTE PROCEDURE Reject 
( Problem = 'Object_006' 

>; 

/• 

* Conducting plant 
V 

/* 

* Transformer components • 

V 

CREATE RULE Winding$Insertl 
AFTER INSERT ON Winding 
EXECUTE PROCEDURE Winding$Insert 
( Tid = New.Tid 
, Object = New. Object 

KVLevel = New.NominalKV 

) ; 

CREATE RULE WindingSDelete 
AFTER DELETE ON Winding 
EXECUTE PROCEDURE Winding$Delete 
( Object = Old. Object 
Winding s Old. Winding 
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) ; 

/* 

Specifications 

V 

CREATE RULE LoadCurveS Insert 1 
AFTER INSERT ON LoadCurve 
EXECUTE PROCEDURE LoadCurveSInsert 
( Tid = New.Tid 

LoadCurve = New . LoadCurve 

) ; 

CREATE RULE LastKey$Delete 
AFTER DELETE ON LastKey 
EXECUTE PROCEDURE Reject 
( Problem = 'Object_006' 

) ; 

CREATE RULE SuperTypeS Insert 1 
AFTER INSERT ON SuperType 
EXECUTE PROCEDURE Superiype$ Insert 
( Type = New, Type 

Superiype = New . Superiype 

); 

CREATE RULE SuperType$Delete 
AFTER DELETE ON SuperType 
EXECUTE PROCEDURE SuperTypeSDelete 
( Type = Old. Type 

); 

CREATE RULE Type$Insertl 
AFTER INSERT ON Type 
EXECUTE PROCEDURE Type$Insert 
( Tid a New.Tid 
, Type = New. Type 
) ; 

CREATE RULE Type$Delete 
AFTER DELETE ON Type 
EXECUTE PROCEDURE Type$Delete 
( Type = Old. Type 
Name = Old. Name 

) ; 

CREATE RULE kVLevel$UpdateJcVLevel 
AFTER UPDATE (kVLevel) ON kVLevel 
EXECUTE PROCEDURE kVLevel $ Update JcVLevel 
{ OldJcVLevel = Old. kVLevel 
, New_kVLevel = New. kVLevel 
) ; 

CREATE RULE kVLevel $ Delete 
AFTER DELETE ON kVLevel 
EXECUTE PROCEDURE kVLevel $Delete 
( kVLevel = Old. kVLevel 

); 

/* 

* Interactions 

V 

CREATE RULE Grouping$Insertl 
AFTER INSERT ON Grouping 
EXECUTE PROCEDURE Groupings Insert 
{ Tid = New.Tid 

Grouping = New. Grouping 

Member = New. Member 

); 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media- is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DEARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 

* This file contain rules that fire in order to ensure internal 

* validity of the data in a row. Typically, there is one for an 

* insert on every table: (TableName$Insert2 ) .There also may be a 

* rule that fires on an update of a specific column: 

* (TableName$Update_ColumnName) if that change requires a check 

* on the internal validity of the modification. 
* 

* The rules in this file are not required to be active. Although 

* they ensure that the data in a row is valid (often electrically)", 

* they may be dropped to speed up bulk loading of data. Therefore 

* every rule that is defined in this file must have a corresponding 

* entry in the file "drop_rules_validatibn.sql" , which can be 
executed to drop the rules when desired. A nawk program, 

» create_to_drop.nawk exists for this purpose, and can be run 

* with the command: 
* 

* "nawk -f create_to_drop.nawk\ 

create_rules_validation.sql\ 

* > drop_rules_validation.sql" 

V 



Object table 

V 

CREATE RULE Object$ Insert 2 
AFTER INSERT ON Object 
EXECUTE PROCEDURE Object$ Validate 
( Object = New. Object 

InService = New. Inservice 
OutService = New. Out Service 

); 

CREATE RULE Object$Update_Name 

AFTER UPDATE (Name) ON Object 
WHERE Old. Name ! = New. Name 
EXECUTE PROCEDURE Object $Name 
( Tid = New.Tid 

Baseiype = New.Baseiype 

>; 

CREATE RULE Object $Update_InService 
AFTER UPDATE (InService) ON Object 
WHERE Old. InService != New. InService 
EXECUTE PROCEDURE ObjectSValidate 
{ Object = New. Object 

InService = New. Inservice 
OutService = New. OutService 

) ; 
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CREATE RULE Object$Update_OutService 
AFTER UPDATE (OutService) ON Object 
WHERE Old. Out Service != New. OutService 
EXECUTE PROCEDURE Object $Validate 
( Object = New. Object 
, InService = New. Inservice 
OutService = New. OutService 

) ; 

CREATE RULE Obj ect$Update_Type 

AFTER UPDATE (Type) ON Object 
WHERE Old. Type != New. Type 
EXECUTE PROCEDURE Object STypeName 
( Tid = New.Tid 
) ; 

CREATE RULE Object$Update_PG 

AFTER UPDATE ( PrimaryGrouping) ON Object 
WHERE Old. PrimaryGrouping != New. Prima ryGrouping 
EXECUTE PROCEDURE Objects PrimaryGrouping 
{ Tid = New.Tid 

Object = New. Object 
, SystemVersion = New.SystemVersion 

01d_PrimaryGrouping = Old. PrimaryGrouping 
New_PrimaryGrouping = New. PrimaryGrouping 

/* 

* Conducting plant 

V 

CREATE RULE Conductor $Insert2 
AFTER INSERT ON Conductor 
EXECUTE PROCEDURE Conductors Validate 
( Object = New. Object 
, R = New.R 

x = New.x 
, Bch = New.Bch 

CREATE RULE ConductorSUpdate 
AFTER UPDATE ON Conductor 
EXECUTE PROCEDURE Conductor$Validate 
( Object = New. Object 
, R = New.R 

X = New.X 

Bch = New.Bch 

CREATE RULE Consumer $ Insert 2 
AFTER INSERT ON Consumer 

EXECUTE PROCEDURE Consumer SUpdateLoadModel 
( Object = New. Object 

01d_Pfixed = 0 
, New_Pfixed = New.Pfixed 
, 01d_Pnom = 0 

New_Pnom = New.Pnom 

01d_Qfixed = 0 
, New.Qfixed = New.Qfixed 

01d_Qnom = 0 

New_Qnom = New.Qnom 

CREATE RULE ConsumerSUpdatePQ 
AFTER UPDATE ON Consumer 
WHERE Old.Pfixed \ « New.Pfixed OR 

Old.Pnom != New.Pnom OR 

Old.Qfixed • = New.Qfixed OR 

Old.Qnom != New.Qnom 
EXECUTE PROCEDURE Consumer SUpdateLoadModel 
( Object = New. Object 

Old.Pfixed = Old.Pfixed 
, New.Pfixed * New.Pfixed 
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01d_Pnom = Old.Pnom 
, New_Pnom = New . Pnom 

01d_Qfixed = Old.Qfixed 

New_Qfixed = New.Qfixed 

Old_Qnom = Old.Qnom 
, New_Qnom = New.Qnom 

CREATE RULE Consumer $UpdatePQPct 

AFTER UPDATE (PfixedPct) ON Consumer 
WHERE Old. Type =91 /* TypeSLoadArea 

EXECUTE PROCEDURE Consumer $UpdateLoadPct 
( Object = New. Object 

Pfixed = New.Pfixed 

Pnom = New. Pnom 

Qfixed = New.Qfixed 
, Qnom = New.Qnom 

PfixedPct = New. PfixedPct 

PnomPct = New.PnomPct 

QfixedPct = New.Qf ixedPct 
, QnomPct = New.QnomPct 

TopLoadArea = New.TopLoadArea 

) » 

/* 

* Transformer components 

*/ 

CREATE RULE Winding$ Insert 2 
AFTER INSERT ON Winding 
EXECUTE PROCEDURE Winding$Validate 
{ Object = New. Object 
, Name * New. Name 

, LoadTapChanger = New . LoadTapChanger 
, NominalKV = New.NominalKV 

NeutralKV = New.NeutralKV 
, LowStep = New. LowS tep 

HighStep = New.HighStep 

NeutralStep = New. Neutrals tep 

StepSi2e = New.StepSize 

CREATE RULE Winding$Update 
AFTER UPDATE ON Winding 
EXECUTE PROCEDURE Winding$Validate 
( , Object = New. Object 
, * Name = New. Name 

LoadTapChanger = New . LoadTapChanger 

NominalKV = New.NominalKV 

NeutralKV = New.NeutralKV 

LowS tep = New. LowS tep 

HighStep ■ New.HighStep 

NeutralStep = New. NeutralStep 

StepSize = New.StepSize 

CREATE RULE TapSetting$Insert2 
AFTER INSERT ON TapSetting 
EXECUTE PROCEDURE TapSetting$Validate 
( Object n New. Object 

Windingl = New.Windingl 

TapStepl e New.TapStepl 
, Winding2 = New.Winding2 
# TapStep2 = New.TapStep2 

Winding3 = New.Winding3 

TapStep3 = New.TapStep3 

CREATE RULE TapSetting$Update 
AFTER UPDATE ON TapSetting 
EXECUTE PROCEDURE TapSetting$Validate 
( Object = New. Object 



WO 94/06087 



PCT/US93/08233 



, Windingl = New.Windingl 
TapStepl = New. TapStepl 

, Winding2 = New.Winding2 
TapStep2 = New. TapS tep2 
Winding3 = New.Winding3 

, TapStep3 = New.TapStep3 

I* 

* Specifications 
V 
/* 

Interactions 

CREATE RULE Terminal $Insert2 
AFTER INSERT ON Terminal 
EXECUTE PROCEDURE Terminal$Validate 
( Tid = New.Tid 

Object = New. Object 

) ; 

CREATE RULE GrassCatcher$Insert2 
AFTER INSERT ON GrassCatcher 
EXECUTE PROCEDURE GrassCatcher$ Insert 

(Tid = New.Tid 

, Object = New. Object 

.Problem = New. Problem 

, Text = New. Text 

) ; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



A base type is a position in the type hierarchy that identifies a number 
subtypes that have similar attributes and behavior. Note that the type is 
forward reference to an entry in the type table that may not be defined 
yet. This is preferable to allowing types to be defined with no checking 
the validity of the base type. For each base type the name of the editor 
frame and the name of any detail table that is required may be defined. 
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BaseType 
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INTO 


BaseType 
VALUES 


(Type 
(46, 


INSERT 


INTO 


BaseType 
VALUES 


(Type 
(47, 


INSERT 


INTO 


BaseType 
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EditorName , TableName ) 
\ "); /* 

EditorName , TableName ) 
ObjectGeneric', ''); /* 

Edi t orName , Tabl eName ) 
ObjectGeneric', ''); /* 

Edi t orName , TableName ) 
Conductor ' , ' Conductor ' ) ; / * 

EditorName, TableName) 
Generator ' , ' Generator ' ) ; / * 

EditorName, TableName) 
Consumer ' , ' Consumer ' ) ; / * 

EditorName, TableName) 
Conductor ' , ' Conductor ' ) ; / * 

EditorName, TableName) 
Conductor ' , ' Conductor 1 ) ; / * 

EditorName, TableName) 
Capacitor ' , ' Capacitor ' ) ; / * 

EditorName, TableName) 
Reactor/ , ' Reactor ' ) ; / * 

Edi t orName , Tabl eName ) 
Switch', 'Switch'); /* 

EditorName, TableName) 
Transformer' , 'Transformer' ) ; /* 

Edi t o rName , Tabl eName ) 
BreakerSensor ',''); / * 

EditorName , TableName ) 
Telemetry', 'Telemetry'); /* 

Edi t orName , Tabl eName ) 
TowerType ' , ? TowerType ' ) ; / * 



TypeS Object *'/ 
Type$Organization 
TypeSGround */ 
TypeSBusbar V 
TypeSGenerator V 
TypeSConsumer */ 
TypeSACLineSegment 
Type$ Jumper */ 
TypeSCapacitor */ 
TypeSReactor */ 
TypeSSwitch */ 
TypeSTransformer w 
TypeSRelay V 
TypeS Tel erne try V 
TypeSTowerType V 



EditorName, TableName) 
ConductorType' , 'ConductorType' ) ; /* TypeSConducto 

Edi t orName , Tabl eName ) 
ObjectGeneric' , ' ' ) ; /* TypeSRatingFamily 

EditorName, TableName) 
ObjectGeneric', '')'; /* TypeSLoadFamily 

EditorName , TableName ) 
ObjectGeneric, "); /* TypeSDrawing •/ 

Type, EditorName, TableName) 
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VALUES (48, 'ObjectGeneric' , "); 

INSERT INTO BaseType (Type, EditorName, TableName) 

VALUES (49, 'ObjectGeneriC , "); /* 

INSERT INTO BaseType (Type, EditorName, TableName) 

VALUES ( 50 , ' Obj ectGeneric ' , ' ' ) ; / ' 

INSERT INTO BaseType (Type, EditorName, TableName) 

VALUES (59, ' Conductor ' , ' Conductor ' ) ; r 

INSERT INTO BaseType (Type, EditorName, TableName) 

VALUES (60, 'Switch', 'Switch'); /* 

INSERT INTO BaseType (Type, EditorName, TableName) 

VALUES (61, 'Switch', 'Switch'); /« 

INSERT INTO BaseType (Type, EditorName, TableName) 

VALUES (62, 'Switch', 'Switch'); /* 

INSERT INTO BaseType (Type, EditorName, TableName) 

VALUES (63, 'Computer', 'Computer'); /* 

INSERT INTO BaseType (Type, EditorName, TableName) 

VALUES (90, 'Person', 'Person'); /* 



TypeSManuf acturer * 
TypeSSeason */ 
TypeSDayType */ 
TypeSDCLineSegment 
TypeSBreaker */ 
Type$Disconnect */ 
Type$Fuse */ 
Type$Computer "7 
Type$ Person */ 



* The following statements define the system types. Any entry added to the 
w type table must be duplicated with an entry of a constant in the 

* PowerSystemModel application with the name "Type$xxxx" and the integer 

* value set to the value defined here. 

* The type table contains the type, the base type and the type name for 

* each type. The type must be unique; the name should be unique but this 

* is not enforced. A base type of 0 implies that the type is for 

* classification only: an object of that type cannot be created or edited. 

* If the base type is non-zero the type of the object can be freely changed 

* amongst others which are subtypes of the base type. Note that it is 

* possible to create a heirarchy of types that can only be descended. 
* 

* New entries must be added at the end of the list, with the next highest 

* type number. For each new entry in the type table, its immediate supertype 

* must be defined in the supertype table. These definitions are grouped 

* after the type table definitions. 
*/ 

INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type* BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 
INSERT INTO Type (Type, BaseType 



, Name) 
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(00, 


01, 
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'Object' ) ; 
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, Name) 
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'Bay') ; 
'System'); 


, Name) 
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(10, 


02, 


'Line') ; 


, Name) 


VALUES 


(11, 


02, 


'Circuit' ) ; 
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02, 
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'Conducting' ) ; 
'Ground' ) ; 


, Name) 
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01, 
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00, 


, Name) 
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Name) 


VALUES 


(36, 


35, 


(Type, 


BaseType, 


Name) 


VALUES 


(37, 


35, 


(Type, 


BaseType, 


Name) 


VALUES 


(38, 


35, 


(Type, 


BaseType, 


Name) 


VALUES 


(39, 


35, 


(Type, 


BaseType, 


Name) 


VALUES 


(40, 


21, 


(Type, 


BaseType, 


Name) 


VALUES 


(41, 


21, 


(Type, 


BaseType, 


Name) 


VALUES 


(42, 


01, 


(Type, 


BaseType, 


Name) 


VALUES 


(43, 


43, 


(Type, 


BaseType, 


Name) 


VALUES 


(44, 


44, 


(Type, 


BaseType, 


Name) 


VALUES 


(45, 


45, 


(Type, 


BaseType, 


Name) 


VALUES 


(46, 


46, 


(Type, 


BaseType, 


Name) 


VALUES 


(47, 


47, 


(Type, 


BaseType, 


Name) 


VALUES 


(48, 


48, 


(Type, 


BaseType, 


Name) 


VALUES 


(49, 


49, 


(Type, 


BaseType, 


Name) 


VALUES 


(50, 


50, 


(Type, 


BaseType, 


Name) 


VALUES 


(51, 


00-, 


(Type, 


BaseType, 


Name) 


VALUES 


(52, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(53, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(54, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(55, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(56, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(57, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(58, 


00 , 


(Type, 


BaseType, 


Name) 


VALUES 


(59, 


59, 


(Type, 


BaseType, 


Name) 


VALUES 


/ C A 

(60, 


60 , 


(Type, 


BaseType, 


Name) 


VALUES 


( 61 , 


61, 


(Type, 


BaseType, 


Name) 


VALUES 


( 62 , 


62 , 


(Type, 


BaseType, 


Name ) 


t T TV T TTCC 

VALUES 


t CI 


6 j , 


(Type, 


BaseType, 


Name ) 


VALUES 


I C A 

( 64 , 


a a 


(Type, 


oase iype, 


Name > 


VALUEb 


/ c c 


a a 


(Type, 


BaseType, 


Name j 


VALUES 


/ c c 
(66, 


A A 
00 , 


(Type, 


case iype, 


Name ) 


VALUES 


/ cn 
\ 0 / , 


ft ft 

00 , 


(Type, 


oase iype, 


Name; 


VALUES 


t CO 

(oo, 


ft ft 

00 , 


\ iype, 


oase iype , 


Name ) 


T TTT7C 

VALUE5 


\ oy , 


ftft 

uu , 


(Type, 


oase iype , 


Name ) 


VALUEb 


\ I U , 


ft ft 


( TVDe . 


BaseType, 


Name ) 


VALUES 


(71, 


00 


(Type, 


BaseType, 


Name) 


VALUES 


(72, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(73, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(74, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(75, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(76, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(77, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(78, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(79, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(80, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(81, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(82, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(83, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(84, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(85, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(86, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(87, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(88, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(89, 


00, 


(Type, 


BaseType, 


Name) 


VALUES 


(90, 


90, 


(Type, 


BaseType, 


Name) 


VALUES 


(91, 


21, 


(Type, 


BaseType, 


Name) 


VALUES 


(92, 


21, 



' Sensing' ) ; 
'Relay' ) ; 
'VoltageRelay ) ; 
' FreguencyRelay ' ) ; 
'CurrentRelay' ) ; 
'Telemetry' ) ; 
'Analog' ) ; 
'Digital' ) ; 
' Counter ' ) 
'Control ' ) ; 
'Feeder' ) ; 
' Load ' ) ; 

'Specification' ) ; 
' TowerType ' ) ; 
'ConductorType' ) ; 
'RatingFamily' ) ; 
'LoadFamily' ) ; 
' Drawing ' ) ; 
'Manufacturer' ) ; 
'Season' ) ; 
'DayType' ) ; 
'Interaction' ) ; 
'Member of ' ) ; 
'Rated as' ) ; 
'Load modeled by' ) ; 
' Shown on' ) ; 
' Made by ' ) ; 
'Located with' ) ; 
'Conductor'); 
' DCLineSegment ' ) ; 
'Breaker' ) ; 
'Disconnect ' ) ; 
'Fuse' ) ; 
'Computer' ) ; 
'Measurement ' ) ; 
' Sensor ' ) ; 
' Current ' ) ; 
'Voltage' ) ; 
'Frequency' ) ; 
'Position' ) ; 
'Impulse' ) ; 
'Contact' ) ; 
' Power' ) ; 
'Measurer' ) ; 
'Telemetered' ) ; 
'Manual' ) ; 
'Calculated') ; 
'StateEstimated' ) ; 
'RemoteSystem' ) ; 
'External' ) ; 
'Measurand' ) ; 
' Amps ' ) ; 
'JcV'); 
'Hert2' ) ; 
' Setting' ) ; 
'Counts' ) ; 
'MW'); 
' MVAr ' ) ; 
' MV A ' ) ; 
'Status' ) ; 
' Person' ) ; 
' LoadArea ' ) ; 
'Loss') ; 



Set up the type heirarchy. The entries in this section must be 
ordered by supertype within supertype to ensure that the 
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ExtendedType tables gets set up correctly. There should be one 
entry for each Type defined above, and that Type's immediate 
* SuperType must be defined. 

V 

INSERT INTO SuperType (SuperType, 



INSERT INTO SuperType 

INSERT INTO SuperType 

INSERT INTO SuperType 

INSERT INTO SuperType 

INSERT INTO SuperType 



INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 



INSERT INTO SuperType 

INSERT INTO SuperType 

INSERT INTO SuperType 

INSERT INTO SuperType 



INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 

INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 

INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



SuperType 

SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 

SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 



INSERT INTO SuperType 
INSERT INTO SuperType 



INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 



INSERT INTO SuperType 
INSERT INTO SuperType 



SuperType, 
SuperType , 
SuperType, 
SuperType, 
SuperType, 

SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 

SuperType, 
SuperType, 
SuperType, 
SuperType, 

SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 

SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 

SuperType, 
SuperType, 

SuperType, 
SuperType , 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 

SuperType, 

SuperType, 



Type) 


VALUES 


(00, 


01) ; 


Type) 


VALUES 


(01, 


02) ; 


Type) 


VALUES 


(01, 


14) ; 


Type) 


VALUES 


(01, 


42) ; 


Type) 


VALUES 


(01, 


51) ; 


lype j 


VAT J IF ^ 


(01 


64) - 


Type) 


VALUES 


(02, 


03) ; 


Type) 


VALUES 


(02, 


04) ; 


Type) 


VALUES 


(02, 


05) ; 


Type) 


VALUES 


(02, 


06) ; 


Type) 


VALUES 


(02, 


07) ; 


Type) 


VALUES 


(02, 


08) ; 


Type) 


VALUES 


(02, 


10) ; 


Type) 


VALUES 


(02, 


11) ; 


Type) 


VALUES 


(02, 


12) ; 


Type) 


VALUES 


(02, 


13) ; 


Type) 


VALUES 


(02, 


15) ; 




VALUES 


(14, 


16) ; 


Type) 


VALUES 


(14, 


17) ; 


Type) 


VALUES 


(14, 


30) ; 




VALUES 


(14 , 


63) ; 


Type) 


VALUES 


(17, 


18) ; 


Type) 


VALUES 


(17, 


20) ; 


Type) 


VALUES 


(17, 


21) ; 


Type) 


VALUES 


(17, 


24) ; 


Type) 


VALUES 


(17, 


25) ; 


Type) 


VALUES 


(17 , 


26) ; 


Type) 


VALUES 


(17, 


27) ; 


Type) 


VALUES" 


(17, 


58) ; 


Type) 


VALUES 


(21, 


40) ; 


Type) 


\7fc.T TTPC 
V/tLiU&O 


/ 31 


**± I * 


Type) 


VALUES 


(21, 


91) ; 


Type) 


VALUES 


(21, 


92) ; 


Type) 


VALUES 


(26, 


60) ; 


Type) 


VALUES 


(26, 


61) ; 


Type) 


VALUES 


(26, 


62) ; 


Type) 


VALUES 


(27, 


28) ; 


Type) 


VALUES 


(27, 


29) ; 


Type) 


VALUES 


(58, 


19) ; 


Type) 


VALUES 


(58, 


22) ; 


Type) 


VALUES 


(58, 


23) ; 


Type) 


VALUES 


{58, 


59) ; 


Type) 


VALUES 


(30, 


31) ; 


Type) 


VALUES 


(30, 


35); 


Type) 


VALUES 


(31, 


32) ; 


Type) 


VALUES 


(31, 


33) ; 


Type) 


VALUES 


(31, 


34) ; 


Type) 


VALUES 


(35, 


36) ; 


Type) 


VALUES 


(35, 


37) ; 


Type) 


VALUES 


(35, 


38) ; 


Type) 


VALUES 


{35, 


39) ; 


Type) 


VALUES 


(63, 


09) ; 


Type) 


VALUES 


(42, 


43); 
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INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 

INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 



INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 



INSERT INTO SuperType 
INSERT INTO SuperType 
INSERT INTO SuperType 



INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 

INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 

INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 

INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 



SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 

SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType , 

SuperType, 
SuperType, 
SuperType, 

SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 

SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType , 

SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 



Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 

Type 
Type 
Type 
Type 
Type 
Type 

Type 
Type 
Type 

Type 
Type 
Type 
Type 

Type 
Type 
Type 

Type 
Type 
Type 
Type 
Type 
Type 

Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 



78 

VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 

VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 

VALUES 
VALUES 
VALUES 

VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 

VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 

VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES. 



(42, 44) 

(42, 45) 

(42, 46) 

(42, 47) 

(42, 48) 

(42, 49) 

(42, 50) 

(42, 90) 

(51, 52) 

(51, 53) 

(51, 54) 

(51, 55) 

(51, 56) 

(51, 57) 

(64, 65) 

(64, 73) 

(64, 80) 

(65, 66) 

(65, 67) 

(65, 68) 

(65, 69) 

(65, 70) 

(65, 71) 

(65, 72) 

(73, 74) 

(73, 75) 

(73, 76) 

(73, 77) 

(73, 78) 

(73, 79) 

(80, 81) 

(80, 82) 

(80, 83) 

(80, 84) 

(80, 85) 

(80, 86) 

(80, 87) 

(80, 88) 

(80, 89) 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies- the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 

* This file contains statements to set up all the system defined 

* nodes and objects. 
V 

/* 

* First, set up the keys. System defined keys range in value from 

* 1 - 10,000; User defined keys range in value from 10,001 to 20,000. 

* Automatically generated keys (for things added in the general use 
of the system) start at 20,001. 

V 

INSERT INTO LastKey 
(LastKey 
, Value 

) 

VALUES 

( 'Object' 
,20000 
) ? 

INSERT INTO LastKey 
(LastKey 
, Value 

) 

VALUES 

( 'Node' 
,20000 

) ; 

INSERT INTO LastKey 
(LastKey 
, Value 

) 

VALUES 

( 'Type' 
,20000 

); 

INSERT INTO LastKey 
(LastKey 
, Value 

) 

VALUES 

( 'Curves' 

,20000 

); 

/* 
* 

* Objects that are created in this section must, have a primary key 
that is equal to the base type of the object. 

V 
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Set up a "Null" object 

*/ 

INSERT INTO Object 
(Object 

, SystemVersion 
♦ Type 

, Terminals 
, Name 

, Description 
) 

VALUES 



(0 /* TypeSNull */ 

,0 /* TypeSNull */ 

,0 /* TypeSNull V 
,0 



! 'Null object' 
); 

INSERT INTO Location 
(Object 
) 

VALUES 

(0 /* TypeSNull V 

) ; 

/* 

* Create the top groupings that everything will belong to 

V 

INSERT INTO Object 
(Object 

, SystemVersion 
,iype 

, Terminals 
,Name 

, Description 

) 

VALUES 



(2 /* TypeSOrganization */ 

, 0 /* TypeSNull V 

,2 /* TypeSOrganization */ 
,0 



, 'Organization' 
, 'Top level organization' 

) ; 

INSERT INTO Grouping 
(SystemVersion 
, Grouping 
, Member 
Relationship 
) 

VALUES 

(0 /* TypeSNull */ 

,0 /* TypeSNull V 

,2 /* TypeSOrganization */ 

,52 /* Type$Member_of */ 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 
,Name 

.Descriotion 
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VALUES 

(42 /* TypeSSpecif ication */ 

,0 /• TypeSNull */ 

,42 /* TypeSSpecif ication */ 
,0 



, 'Specification' 
, 'Top level specification' 
); 

' INSERT INTO Grouping 
(SystemVersion 
, Grouping 
, Member 
, Relationship 
) 

VALUES 

(0 /* TypeSNull */ 

,0 /* TypeSNull •/ 

,42 /* TypeSSpecif ication */ 

,52 /* Type$Member_of */ 

) ; 

/* 

* Set up a single terminal ground for the entire system. 

*/ 

INSERT INTO Object 
(Object 

, SystemVersion 
,Type 

, Terminals 
,Name 

, Description 
, InService 
) 

VALUES 

(18 /* TypeSGround */ 

,0 /* TypeSNull */ 

,18 /* TypeSGround */ 

,1 

, 'Ground' 

, 'Single terminal ground for entire system' 
, 'l-Jan-1900' 

) ; 

UPDATE Terminal T 

SET Node =18 /* TypeSGround V 

WHERE T. Object =18; /* TypeSGround V 

INSERT INTO Grouping 
(SystemVersion 
, Grouping 
, Member 
.Relationship 
) 

VALUES 

(0 /* TypeSNull V 

,42 /* TypeSSpecif ication */ 

,18 /* TypeSGround •/ 

,52 /* Type$Member_of */ 

); 

/* 

Create the template object for each base type with a key of 
BaseType + 5000. 

•/ 

INSERT INTO Object 
(Object 
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, SystemVersion 
.Type 

, Terminals 
, Name 

) 

VALUES 

(02 + 5000 /* TypeSOrganization */ 

,0 /* TypeSNull V 

,02 /* TypeSOrganization V 

,0 

, 'Template' 

) ; 

INSERT. INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 
, Name 
) 

VALUES 

(19 + 5000 /* iype$Busbar */ 
,0 /* Type$Null */ 

,19 /* TypeSBusbar */ 

,1 

, 'Template' 

• ) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
, Type 

, Terminals 

,Name 

) 

VALUES 

(20 + 5000 /* TypeSGenerator */ 



,1 

, 'Template' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 
,Name 

) 

VALUES 

(21 + 5000 /* TypeSConsumer */ 
,0 /* TypeSNull V 

,21 /* TypeSConsumer */ 

,1 

, 'Template' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 
,Name 

) 

VALUES 



,0 
,20 



/* TypeSNull V 
/* TypeSGenerator */ 
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(22 + 5000 /* TypeSACLineSegment V 



,2 

, 'Template' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
♦ Type 

, Terminals 

,Name 

) 

VALUES 

(23 + 5000 /* TypeSJumper */ 
,0 /* TypeSNull */ 

,23 /* TypeSJumper */ 

,2 

, 'Template' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
,Type 

, Terminals 

,Name 

) 

VALUES 

(24 + 5000 /* TypeSCapacitor */ 
,0 /* TypeSNull */ 

,24 /* TypeSCapacitor */ 

.2 

, 'Template' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
/Type 

, Terminals 
,Name 

) 

VALUES 

(25 + 5000 /* TypeSReactor V 
,0 /* TypeSNull V 

,25 /* TypeSReactor V 

,2 

, 'Template' 

); 

INSERT INTO Object 
(Object 

, SystemVersion 
<Type 

, Terminals 
,Name 

) 

VALUES 

(26 + 5000 /* TypeSSwitch */ 



,0 
,22 



/* TypeSNull */ 
/* Types ACLineSegment V 



,0 
,26 
,2 



/* TypeSNull V 
/* TypeSSwitch */ 



, 'Template' 

); 
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INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 

,Name 

) 

VALUES 

(27 + 5000 /* TypeSTransformer */ 

,0 /* TypeSNull •/ 

,27 /* TypeSTransformer */ 

,0 

, 'Template' 

); 

INSERT INTO Object 
(Object 

, SystemVersion 
,Type 

, Terminals 

,Name 

) 

VALUES 

(31 + 5000 /* TypeSBreakerSensor */ 

,0 /* TypeSNull */ 

,31 /* TypeSBreakerSensor */ 

,2 

, 'Template' 

); 

INSERT INTO Object 
(Object 

, SystemVersion 

, Terminals 

,Name 

) 

VALUES 

(35 + 5000 /* TypeSTelemetry */ 
r 0 /* TypeSNull V 

,35 /* TypeSTelemetry */ 

,0 

, 'Template' 
) ; 

INSERT INTO Object 
(Object 

t SystemVersion 
t Type 

, Terminals 
( Name 
) 

VALUES 

(43 + 5000 /* TypeSTowerType */ 
,0 /* TypeSNull V 

,43 /* TypeSTowerType */ 

,0 

, 'Template' 

); 

INSERT INTO Object 
(Object 

, SystemVersion 
, Type 

, Terminals 
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,Name 
) 

VALUES 

(44 + 5000 /* TypeSConductorType */ 

,0 /* TypeSNull */ 

f 44 /* TypeSConductorType */ 

,0 

, 'Template' 

) ; 

INSERT INTO Object 
(Object 

,SystemVersion 
.Type 

, Terminals 
,Name 

) 

VALUES 

(45 + 5000 /* TypeSRatingFamily */ 

,0 /* TypeSNull */ 

,45 /* TypeSRatingFamily V 

,0 

, 'Template' 

); 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 

,Name 

) 

VALUES 

(46 + 5000 /* TypeS LoadFamily */ 
,0 /* TypeSNull */ 

,46 /* TypeSLoadFamily */ 

,0 

, 'Template' 

) ; 

- INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 

,Name 

) 

VALUES 

(47 + 5000 /* TypeSDrawing */ 
,0 /* TypeSNull */ 

,47 /* TypeSDrawing */ 

,0 

, 'Template' 

) ? 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 

,Name 

) 

VALUES 

(48 + 5000 /* TypeSManufacturer */ 

,0 /• TypeSNull •/ 

,48 /* TypeSManufacturer */ 



WO 94/06087 



PCI7US93/08233 



86 

, 'Template' 
) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
,Type 

, Terminals 
, Name 
) 

VALUES 

(49 + 5000 /* Type$Season */ 
,0 /* TypeSNull V 

,49 /* TypeSSeason */ 

,0 

, 'Template' 

>; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 
,Name 

) 

VALUES 

(50 * 5000 /* TypeSDayType */ 
,0 /• TypeSNull •/ 

,50 /* TypeSDayType */ 

,0 

, 'Template' 

); 

INSERT INTO Object 
(Object 

, SystemVersion 
,Type 

, Terminals 
,Name 

) 

VALUES 

(59 + 5000 /* TypeSDCLineSegment */ 

,0 /* TypeSNull •/ 

,59 /* TypeSDCLineSegment */ 

,2 

, 'Template' 
); 

INSERT INTO Object 
(Object 

, SystemVersion 
,iype 

, Terminals 
, Name 

) 

VALUES 

(60 + 5000 /* TypeSBreaker */ 
,0 /* TypeSNull V 

,60 /* TypeSBreaker */ 

,2 

, 'Template' 

); 

INSERT INTO Object 
(Object 
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, SystemVersion 
.Type 

, Terminals 
, Name 

) 

VALUES 

(61 + 5000 /* TypeSDisconnect */ 
,0 /* TypeSNull V 

,61 /* Type$Disconnect */ 

,2 

, 'Template' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 

,Name 

) 

VALUES 

(62 + 5000 /* TypeSFuse */ * 
,0 /* TypeSNull V 

,62 /* TypeSFuse */ 

,2 

, 'Template' 

); 

INSERT INTO Object 
(Object 

, SystemVersion 
,Type 

, Terminals 
,Name 

) 

VALUES 

(63 + 5000 /* TypeSComputer */ 
,0 /* Type$Null */ 

,63 /* Type$Computer */ 

,0 

, 'Template' 
) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 
,Name 

) 

VALUES 

(90 + 5000 /* TypeSPerson */ 
,0 /* TypeSNull V 

,90 /* TypeSPerson V 

,0 

, 'Template' 

); 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 

* Parameters relating to the system being modelled are defined here. 

*/ 

INSERT INTO SystemParameters 
(Frequency 
,MVABase 
, KVRef erence 
, LengthRatio 
, GroundResistivity 
, Temperature 
) 

VALUES 
(60 
,100 
,1 

,1000 
,100 
, 'C 

); 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media* is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 

* The following statements define the problem descriptions that are 

* recognised in the Power System Data Model 
*/ 

INSERT INTO Problem (Problem, Severity, Description) 

VALUES { 'Object_001' , 'E', 'In Service must precede Out of Service'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_002 ' , ' F' , 'There is equipment at this voltage'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_003 ' , 'F', 'This device has no more terminals'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_004' , ' F' , 'Group object does not exist'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_005' , 'F', 'Member object does not exist'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_006' , 'F', 'Delete not permitted'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_007 ' , 'F', 'Base type of an object may not be changed'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_008' , 'F', 'Please select a terminal to connect to'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_009' , 'F', 'Please select a terminal to be connected'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_010' , 'F', 'Please select a terminal to remove')? 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES CObject_011', 'F', 'There is already a relationship with this obj 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_012 ' , 'F', 'Objects of this type may not be created'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_013 ' , ' ' , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_014 ',","); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_015' , ", "); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_016' # ", "); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES CObject_017\ ", ")? 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_018' , ", "); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_019' , ", "); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Object_020' , ", "); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Capacitor_001' , ", "); 
INSERT INTO Problem (Problem, Severity, Description) 
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VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 



'Capacitor_002 ' , 
Problem (Problem, 
'Capacitor_003' , 
Problem (Problem, 
'Capacitor_004 ' , 
Problem (Problem, 
'Capacitor_005' , 
Problem (Problem, 
'Capacitor_006' , 
Problem (Problem, 
'Capacitor_007' , 
Problem (Problem, 
'Capacitor_008' , 
Problem (Problem, 
'Capacitor_009' , 
Problem (Problem, 
'Capacitor_010' , 
Problem (Problem, 
'Conductor_001' , 
Problem (Problem, 
'Conductor_002' , 
Problem (Problem, 
'Conductor_003 ' , 
Problem (Problem, 
'Conductor_004' , 
Problem (Problem, 
'Conductor_005' , 
Problem (Problem, 
'Conductor_006' , 
Problem (Problem, 
'Conductor_007 ' , 
Problem (Problem, 
'Conductor./) 08' , 
Problem (Problem, 
' Conduct or_0 09' , 
Problem (Problem, 
'Conductor_010' , 
Problem (Problem, 
'Consumer_001' , ' 
Problem (Problem, 
'Consumer_002' , ' 
Problem (Problem, 
'Consumer_003 ' , ' 
Problem (Problem, 
'Consumer_004 ' , ' 
Problem (Problem, 
'Consumer_005' , ' 
Problem (Problem, 
'Consumer_006' , ' 
Problem (Problem, 
'Consumer_007 ' , ' 
Problem (Problem, 
'Consumer_008' , ' 
Problem (Problem, 
'Consumer_009' , ' 
Problem (Problem, 
'Consumer_010' , ' 
Problem (Problem, 
'Generator_001 ' , 
Problem (Problem, 
'Generator^ 02 ' , 
Problem (Problem, 
'Generator_003 ' , 
Problem (Problem, 
'Generator_004 ' , 
Problem (Problem, 



' , " ) ; 
Severity, 

Severity, 



Severity, 

' , " ) ; 

Severity, 

' , " ) ; 

Severity, 

' , " ) ; 

Severity, 
/ » » \ . 

Severity, 
i t / \ . 
i it 

Severity, 

* / # \ . 

t I t 

Severity, 

W, 'X/R 

Severity, 
$ i i \ . 
/ / / 

Severity, 

* * » \ . 
> it 

Severity, 

', "); 

Severity, 

i it 
Severity, 
/ * t \ . 

i it 

Severity, 
/ / * \ . 

Severity, 

* » t \ . 

t l t 

Severity, 

* t * \ . 

Severity, 

t i i 
Severity, 

* I t 

Severity, 

9 9 \ . 
t I I 

Severity, 

9 9 \ . 
t I t 

Severity, 

9 9 \ . 
I I I 

Severity, 
, "); 
Severity, 

I 9 \ . 
I It 

Severity, 

' ' ) • 
t i * 

Severity, 

, "); 

Severity, 

. " ) ; 

Severity, 

' ' ) ; 

Severity, 

* f * \ . 

Severity, 

« * * \ . 
* i t 

Severity, 

\ "); 

Severity, 

* * ' \ . 
t 1 1 

Severity, 



90 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 
ratio is low' ) ; 
Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 



WO 94/06087 



PCT/US93/08233 



VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 
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INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 

VALUES 
INSERT INTO 



'Generator_005' , 
Problem (Problem, 
'Generator_006' , 
Problem (Problem, 
'Generator_007' , 
Problem (Problem, 
'Generator_008' , 
Problem (Problem, 
'Generator_009' , 
Problem (Problem, 
'Generator_010' , 
Problem (Problem, 
'ReactorJ501\ " 
Problem (Problem, 
'Reactor_002' , " 
Problem (Problem, 
'Reactor_003' , " 
Problem (Problem, 
'Reactor_004' , " 
Problem (Problem, 
'Reactor_005' , " 
Problem (Problem, 
'Reactor_006' , " 
Problem (Problem, 
'Reactor_007 ' , " 
Problem (Problem, 
' React or_008 ' , " 
Problem (Problem, 
' React or_009 ' , " 
Problem ( Problem, 
' React or_010 ' , " 
Problem (Problem, 
'Switch_001' , ", 
Problem (Problem, 
'Switch_002' , ", 
Problem (Problem, 
'Switch_003 ' , ", 
Problem (Problem, 
'Switch_004' , ", 
Problem (Problem, 
'Switch_005\ ", 
Problem (Problem, 
'Switch_006', 
Problem (Problem, 
'Switch_007\ 
Problem (Problem, 
'Switch_008', ", 
Problem (Problem, 
'Switch_009' , ", 
Problem (Problem, 
'Switch_010' , ", 
Problem (Problem, 
' Trans f ormer_0 0 1 ' 
Problem (Problem, 
'Transformer_002' 
Problem (Problem, 
' Trans f ormer_0 0 3 ' 
Problem (Problem, 
' Trans former_004 ' 
Problem (Problem, 
'Transformer_005' 
Problem (Problem, 
' Trans f ormer_0 06 ' 
Problem (Problem, 
'Transf ormer_007 ' 
Problem (Problem, 
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', "); 

Sever icy, Description) 
"); 

Severity, Description) 
» * * \ . 

0 I t 

Severity, Description) 

t I I \ . 

1 I I 

Severity, Description) 
* i * \ . 
i i * 

Severity, Description) . 

' ' ' ) ; 

Severity, Description) 

" ) ; 

Severity, Description) 
"); 

Sever i ty , Description ) 

" > ; 

Severity, Description) 
"); 

Severity, Description) 

"); 

Severity, Description) 
" ) ; 

Severity, Description) 
" ) ? 

Severity, Description) 
"); 

Severity, Description) 
" ) ; 

Severity, Description) 'V 
" ) ; 

Severity, Description) 

" ) ; 

Severity, Description) 
"); 

Severity, Description) 
"); 

Severity, Description) 
") ; 

Severity, Description) 
">; 

Severity, Description) 
"); 

Severity, Description) 

") ? 

Severity, Description) 

" ) ; 

Severity, Description) 

" ) ; 

Sever i ty , Description ) 

" ) ; 

Severity, Description) 

'W, 'Nominal kV is out of range of the taps') 
Severity, Description) 

'W, 'Step Size is greater than 10%'); 
Severity, Description) 

'E', 'Load tap changer must be "Yes" or "No"'; 
Sever i ty , Des cr ipt ion ) 

'E', 'Low Step must be <= High Step'); 
Severity, Description) 

'E', 'Neutral Step must be >= low step'); 
Severity, Description) 

'E', 'Neutral step must be <= high step'); 
Severity, Description) 

'E', 'Step size must be non-zero'); 
Severity, Description) 
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' Trans forme r_0 08 ' 
Problem (Problem, 
' Trans former_0 09 ' 
Problem (Problem, 
' Trans f ormer_0 1 0 ' 
Problem (Problem, 
' Trans former_011 ' 
Problem (Problem, 
' Trans f ormer_012 ' 
Problem (Problem, 
' Trans former_0 13 ' 
Problem (Problem, 
' Trans f ormer_0 1 4 ' 
Problem (Problem, 
' Trans f o rme r_0 1 5 ' 
Problem (Problem, 
' Trans f ormer_0 1 6 ' 
Problem (Problem, 
'Transformer_017 ' 
Problem (Problem, 
' Trans f ormer_0 1 8 ' 
Problem (Problem, 
' Trans f ormer_0 1 9 ' 
Problem (Problem, 
' Trans f ormer_0 2 0 ' 
Problem (Problem, 
'Telemetry_001' , 
Problem (Problem, 
'Telemetry_002' , 
Problem (Problem, 
'Telemetry_003 ' , 
Problem (Problem, 
'Telemetry_004' , 
Problem (Problem, 
'Telemetry_005' , 
Problem (Problem, 
'Telemetry_006' , 
Problem (Problem, 
'Telemetry_007' , 
Problem (Problem, 
'Telemetry_008' , 
Problem (Problem, 
'Telemetry_009' , 
Problem (Problem, 
'Telemetry_010' , 
Problem (Problem, 
' ConductorType_001 
Problem (Problem, 
'ConductorType_002 
Problem (Problem, 
' Conduct orType_0 0 3 
Pr obi em ( Probl em , 
' Conduc torType_0 0 4 
Problem (Problem, 
' Conduc torType_0 0 5 
Problem (Problem, 
'ConductorType_006 
Problem (Problem, 
'ConductorType_007 
Problem (Problem, 
'ConductorType_008 
Problem (Problem, 
' Conduc torType_0 0 9 
Problem (Problem, 
' Conduc torType_0 1 0 
Problem (Problem, 



92 

' F' , 'Windings muse belong to transformers ' ; 
Severity, Description) 

' E ' , 'Tap Setting winding does net exist'); 
Severity, Description) 

' E' , 'Tap Setting tap step is out cf range'); 
Severity, Description) 

'E', 'Tap Setting windings 1 and 2 must be see 
Severity, Description) 

'E', 'Tap Setting windings may be used once or. 
Severity, Description) 

'E', 'Rated MVA is not specified fcr any windi 
Severity, Description) 

'E', 'Tap Setting impedance is not in the expe 
Severity, Description) 

'F ' , 'Winding is referenced by a Tap Setting': 
Severity, Description) 

'F', 'There are Tap Settings defined'); 
Severity, Description) 

ft I I V . 

I ft 

Severity, Description) 
it i » \ . 

Severity, Description) 

it I t \ . 
» I t 

Severity, Description) 
tt 1 1 \ . 

Severi ty , Description ) 

* I 9 \ . 
t i I 

Severity, Description) 
/ t t \ . 

Severity, Description) 

' , " ) ; 

Severity, Description) 

"); 

Severity, Description) 
t 1 1 \ . 

Severity, Description) 

* 9 9). 

t I i 

Severity, Description) 

* I 9 \ . 
/ / I 

Severity, Description) 

/ 9 9 \ . 

t I t 

Severity, Description) 

9 9 t\ . 

/ / I 

Severity, Description) 

9 I t \ , 

t I I 

Severity, Description) 



Severity, 

Severity, 
/ 1 1 1 1 
t i 

Severity, 
/ it 1 1 
i i 

Severity, 
/ 1 1 it 
i i 

Severity, 
i ti it 

Severity, 
i ii ii 
i i 

Severity, 
/ ii ii 

Severity, 
i ii ii 
i i 

Severity, 
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Description) 
Description) 
Description) 
Description) 
Description) 
Description) 
Description) 
Description) 



Sever i ty , Description ) 
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'TowerType_001 ' , 
Problem (Problem, 
'TowerType_002 ' , 
Problem ( Problem, 
'TowerType_003 ' , 
Problem (Problem, 
'TowerType_004 ' , 
Problem (Problem, 
'TowerType_005' , 
Problem (Problem, 
'TowerType_006' , 
Problem (Problem, 
'TowerType_007 ' , 
Problem (Problem, 
'TowerType_008' , 
Problem (Problem, 
'TowerType_009' , 
Problem (Problem, 
' TowerType_010 ' , 
Problem (Problem, 
"iype_001\ 'F\ 
Problem (Problem, 
"IYpe_002', , 
Problem (Problem, 
'Type_003\ ' F' , 
Problem (Problem, 
'Type_004', 'F', 
Problem (Problem, 
'Type_005', 'F', 
Problem (Problem, 
'Type_006', ' F ' , 
Problem (Problem, 
'Type_007', 'F\ 
Pr ob 1 em ( Pr ob 1 em , 
'Type_008', ", ' 
Problem (Problem, 
'TYpe_009', ", • 
Problem (Problem, 
'Type_010', ", ' 
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Severity, Description) 
\ ' '); 

Severity, Description) 

» ' ' ) ; 

Severity, Description) 

"); 

Severity, Description) 

\ "); 

Severity, Description) 
< * i \ . 

Severi ty , Description ) 

* t * \ . 

Severity, Description) 

• ' ' \ • 
t I t 

Severity, Description) 
* i * 

Severity, Description) 
j ' ' ) ; 

Severity, Description) 

Type is in use as a super-type'); 

Severity, Description) 

There are objects of this type'); 

Severity , Description ) 

Type is system defined and cannot be deleted 

Severity, Description) 

Sub-type does not exist'); 

Severity, Description) 

Super-type does not exist'); 

Severity, Description) 

No editor defined for this type of object'); 

Severity, Description) 

A type of that name already exists'); 

Severity , Description ) 

) ; 

Severity , Description ) 

); 

Severity , Descript ion) 
); 



'); 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



DROP PROCEDURE kVLevel$ Propagate; 
CREATE PROCEDURE kVLevelS Propagate 

DECLARE 

i INTEGER NOT NULL; 

Loop INTEGER NOT NULL; 

Maxlterations INTEGER NOT NULL; 
BEGIN 

DELETE FROM TEMP$TerminalList ; 
DELETE FROM TEMPSObjectList ; 
DELETE FROM TEMP$AuditTrail ; 

/* 

* Build a list of all the transformer terminals to use as a start point, 

* and record the fact that they have been processed. 
V 

INSERT INTO TEMP$TerminalList 

SELECT * 

FROM Terminal 

WHERE BaseType = 27; /* Type $ Trans former */ 

INSERT INTO TEMP $ Audit Trail 

SELECT Object 

FROM TEMP$TerminalList ; 

/* 

* Loop, looking for new objects, and set their terminal kv levels up 

* when they are found 
*/ 

Loop = 1; 

Maxlterations = 40; 

WHILE Loop <= Maxlterations DO 
message loop 'Loops'; 

SELECT :i = count (*) from tempSterminalList ; 
message i 'Terminals'; 

/* 

* Get a list of all the objects connected to the terminals in the 

* terminal list, propagating the voltage from the terminal list. Force 

* the voltage propagated to be that of the highest voltage terminal 

* (in case some are grounded) . Note that transformers have already 

* been dealt with. 
V 

DELETE FROM TEMPSObjectList; 
INSERT INTO TEMPSObjectList 

(Object 

, kVLevel 

) 
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V 



SELECT 

T. Object, 
MAX ( TL . kVLevel ) 
FROM Terminal T, 

TEMPSTerminalList TL 
WHERE TL . Node = T.Node AND 
TL. Object != T. Object 
GROUP BY T.Object; 
message iirowcount 'Objects'; 



/* same node */ 

/* different object */ 



Discard any that have already been visited, set the voltage levels 
for all the terminals of those that remain, and add them to the 
audit trail 

DELETE FROM TEMPSObjectList OL 

WHERE OL. Object = (SELECT Object FROM TEMPSAuditTrail) ; 
message iirowcount 'Revisited'; 



UPDATE Terminal T 
FROM TEMP$ObjectList OL 
SET kVLevel = OL.kVLevel 
WHERE T.Object = OL. Object AND 

T.Node >= 10000; 
message iirowcount 'Updated'; 



/* object in object list 
/* not a system node */ 



INSERT INTO TEMP$AuditTrail 
SELECT Object 
FROM TEMPSObjectList; 
message iirowcount 'Audited'; 

Find all the other terminals for these objects 

DELETE FROM TEMPS Terminal Lis t ; 
INSERT INTO TEMP$TerminalList 
SELECT T. * 
FROM Terminal T, 

TEMPSObjectList OL 
WHERE OL. Object = T.Object AND 

T.Node >= 10000; 



/* same object */ 
/* not a system node 



IF IIRowCount = 0 THEN 

ENDLOOP; 
ENDIF; 

Loop = Loop + 1; 
ENDWHILE; 

/* 

create table objectlist as 
select object 
from object 
where basetype != 27 and 
terminals > 1; 



select 
from 



where 



ol. object 
objectlist ol, 
terminal tl, 
terminal t2 

ol. object = TEMPSobjectlist .object and 

ol. object = t2. object and 

tl. terminal != t2. terminal and 

tl.node >= 10000 and 

t2 .node >= 10000 and 

tl.kvlevel != t2.Jcvlevel; 



END; 
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/*** ♦ *♦ 

Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 44, 'Waxwing'); 
UPDATE ConductorType SET 

Resistances. 238, Radius=0 . 008, GMRS.006, Ampacity=440 . 000 

WHERE Object = (Select value from lastkey where lastkey='Object ' ) ; 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 44, 'Partridge'); 
UPDATE ConductorType SET 

Resistances .236, Radius=0.008, GMR=0.007, Ampacity=440 . 000 

WHERE Object = (Select value from lastkey where lastkey=' Object ' ) ;" 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 44, 'Merlin'); 
UPDATE ConductorType SET 

Resistance^ .189, RadiusS. 009, GMRS.141, Ampacity=500 . 000 

WHERE Object = (Select value from lastkey where lastkey=' Object ' ) ; 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 44, 'Linnet'); 
UPDATE ConductorType SET 

Resistances .187, Radius=0 .009 , GMR=0.137, Ampacity=510 . 000 

WHERE Object = (Select value from lastkey where lastkey=' Object ' ) ; 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 44, 'Ibis' ) ; 
UPDATE ConductorType SET 

Resistances .159, RadiusS.010, GMRS.134, Ampacity=570 . 000 

WHERE Object = (Select value from lastkey where lastkey=' Object ' ) ; 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 44, 'Pelican'); 
UPDATE ConductorType SET 

Resistances .133, RadiusS . 010, GMRS.134, Ampacity=625 . 000 

WHERE Object = (Select value from lastkey where. lastkey =' Object ') ; 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 44, 'Flicker'); 
UPDATE ConductorType SET 

Resistances. 133, RadiusS. 011, GMRS.132, Ampacity=635 . 000 

WHERE Object = (Select value from lastkey where lastkey=' Object • ) ; 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 44, 'Hawk'); 
UPDATE ConductorType SET 

Resistances .132, RadiusS. 011, GMRS.131, Ampacity=640 . 000 

WHERE Object = (Select value from lastkey where las tkey=' Object ' ) ; 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 44, 'Hen'); 
UPDATE ConductorType SET 

Resistances. 131, RadiusS. 011, GMRS.129, Ampacity=645 . 000 

WHERE Object = (Select value from lastkey where lastkey = 'Object ') ; 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 44, 'Osprey'); 
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UPDATE ConductorType SET 

Resistance^. 115, Radius=0 . Oil, GMR=0.132, Ampacity=690 . 000 

WHERE Object = (Select value from lastkey where las tkey= 'Object ' ) ; 

INSERT INTO Object (Object, Type, Name) 
VALUES (-1, 44, 'Parakeet'); 

UPDATE ConductorType SET 

Resistance^. 114, Radius=0.012, GMR=0.129, Ampacity=700 . 000 

WHERE Object = (Select value from lastkey where lastkey= 'Object ') ; 

INSERT INTO Object (Object, Type, Name) 
VALUES (-1, 44, 'Dove'); 

UPDATE ConductorType SET 

Resistance^. 113, Radius=0 .012, GMR=0.128, Ampacity=710 . 000 

WHERE Object = (Select value from lastkey where las tkey*' Object ' ) ; 

INSERT INTO Object (Object, Type, Name) 
VALUES (-1, 44, 'Rook'); 

UPDATE ConductorType SET 

Resistance^. 100, Radius=0 .012, GMR=0.126, Ampacity =765 . 000 

WHERE Object = (Select value from lastkey where las tkey= 'Object ') ; 

INSERT INTO Object (Object, Type, Name) 
VALUES (-1, 44, 'Grosbeak'); 

UPDATE ConductorType SET 

Resistance^. 099, Radius=0.013, GMR=0.126, Ampacity=775 . 000 

WHERE Object = (Select value from lastkey where lastkey= 'Object ') ; 

INSERT INTO Grouping (SystemVersion, Grouping, GroupingType, Member, MemberTyce, 
SELECT 0, 42, 42, Object, 44, 52 
FROM Object where Type=44 AND Object != 44; 
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INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 43, ' BPA 500' ) ; 
Update TowerType SET 
al.of f set =-6. 707, al_height=21 . 951 , 
bl_offset=0.000, bl_height=31.402, 
cl_offset=6.707, cl_height=21.951, 
gl_of fset=-3 .811, gl_height=38 . 567 , 
a2 offset=0.000, a2_height=0 . 000, 
b2~of fset=0 .000, b2_height=0 . 000 , 
c2loffset = 0 .000, c2_height=0 . 000 , 
g2_offset=3 .811, g2_height=38 . 567 

WHERE Object = (Select value from lastkey where lastkey^' Object ' ) ; 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 43, 'TVA500'); 
Update TowerType SET 
al_of fset=-12 .195, al_height=33 .232 , 
bl_of f set =0 . 000 , bl_height=33 . 232 , 
Cl.of f set =12 . 195, cl_height=33 .232, 
gl_of fset=-10.061, gl_height=42 .988, 
a2_offset=0.000, a2_height=0 . 000 , 
b2_of f set=0 . 000 , b2_height=0 . 000 , 
c2_of fset=0 .000, c2_height=0 . 000 , 
g2_of f set=10 . 061 , g2_height=42 . 988 

WHERE Object = (Select value from lastkey where lastkey = 'Object ') ; 
INSERT INTO Object (Object, Type, Name) 

VALUES (-1, 43, ' APL 500'); 
Update TowerType SET 
al_offset=-9.223, al_height=28.049, 
bl_of f set=0 . 000 , bl_height=28 . 049 , 
cl_offset = 9.223, cl_height=28 . 049 , 
gl_of f set = -6 . 174 , gl_height=37 . 957 , 
■ a2_of f set=0 . 000 , a2_height=0 . 000 , 
b2_of f set = 0 . 000 , b2_height=0 . 000 , 
c2_of f set=0 .000 , c2_height=0 . 000, 
g2_of f set=6 . 174 , g2_height=37 .957 

WHERE Object = (Select value from lastkey where lastkey= 'Object ') ; 

INSERT INTO Grouping . (SystemVersion, Grouping, GroupingType, Member, MemberTyce, 
SELECT 0, 42, 42, Object, 43, 52 
FROM Object where Type=43 AND Object != 43; 
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/ 



Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DEARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

( 

Object = INTEGER; /* Object being edited */ 

OG = ARRAY OF GroupingClass; /* Groupings it belongs to •/ 

OM = ARRAY OF MeasurementClass ; /* Measurements made on it */ 

RO = ObjectSummaryClass; /* Exchange replacement object 

i = INTEGER; /* Scratch integer */ 

) = 

BEGIN 

CurFrame.SendUserEvent (EventName = '0. Get At tributes ' ) ; 

END; 

On UserEvent 'T.GetAt tributes' = 
BEGIN 

ROLLBACK; 

END; 

On UserEvent 'T. Update' = 
BEGIN 

COMMIT; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



ON UserEvent 'O. Get At tributes' = 
* Get the object attributes, then get the type specific attributes 



BEGIN 

REPEATED 
SELECT 



FROM 
WHERE 



0. Object = 0. Object, 
O.BaseType = O.BaseType, 
O.Type = O.Type, 

O.PrimaryGrouping = 0. PrimaryGrouping, 
O.TypeName = O.TypeName, 

0. PrimaryGroupingName = O. Prima ryGroupingName, 
O.Name = 0 . Name , 
0. Description = 0. Description, 
0. Comment = O. Comment, 
0. Terminals = 0. Terminals, 
O.InService = O.InService, 
0. Out Service = 0. Out Service, 
O.PositionX = O.PositionX, 
O.PositionY = O.PositionY, 
O.OwnerNumber = 0 . OwnerNumber , 
O.SerialNumber = O.SerialNumber, 
O.SpecNumber = O.SpecNumber, 
O.LastChanged = O.LastChanged, 
O.LastChangedQy = O.LastChangedBy 
Object 0 

: Object = 0. Object ; 



INQUIRE_SQL ( : i = ERRORNO ) ; 

IF i 1=0 THEN 

ROLLBACK; 

RESUME; 
ENDIF; 

CurFrame.WindowTitle = 

Squeeze (0. PrimaryGroupingName + ' ' + O.TypeName + ' * + O.Name) 

If the object has no terminals, disallow access to the Network button 

IF 0. Terminals <= 0 THEN 

FIELD (Network) .CurBias = FB_Dimmed; 
ENDIF; 

Mark the identifiers as unchanged 

FIELD (O . PrimaryGroupingName) . HasDataChanged = FALSE; 
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FIELD (O.TypeName) .HasDataChanged = FALSE; 
FIELD (0. Name) . HasDacaChanged = FALSE; 

* 

* Get the groupings and measurements also 

•/ 

OG.ClearO ; 
i = 1; 
REPEATED 

SELECT :OG[i] .SystemVersion = G .SystemVersion, 
:OG[i] .Grouping = G. Grouping, 
:OG[i) .GroupingType = G.GroupingType, 
:OG(i] .Relationship = G. Relationship, 
:OG[ij .Reference = G. Reference 

FROM Grouping G 

WHERE : Object = G. Member 

BEGIN 

i a i + 1; 

END; 

OM.ClearO; 
i - 1; 

REPEATED 

SELECT :OM[i] .MeasurandType = M.MeasurandType, 
:OM[i] .Terminall = M.TerminalL, 
:OM[i] .Terminal2 = M.Terminal2 , 
:OM[i] .SensorType = M. SensorType, 
:OM[i] . SensorMinimum = M . SensorMinimum, 
:OM[i] . SensorMaximum = M. SensorMaximum, 
:OM[i] . SensorAccuracy = M. SensorAccuracy , 
:OM[i j .ReversePolarity = M.ReversePolarity , 
:OM[i j .MeasurerType = M.MeasurerType, 
:OM[i] .Measurer = M. Measurer, 
:0M[ij. Alarm = M. Alarm, 
:OM[i] .History = M. History, 
:OM[i] .Trigger = M. Trigger, 
:OM[i] .EventLog =: M.EventLog, 
:0M(i] . Input = M. Input, 
: OM [ i j . Output = M. Output 

FROM Measurement M 

WHERE : Object = M.Measurand 

BEGIN 

i = i + 1; 

END; 

CurFrame.SendUserEvent (EventName = 'T.GetAttributes ' ) ; 

END; 
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ON Click Menu. File. Add, 

ON Click Add, 

ON UserEvent '0. Insert' = 

/• 

* Set up the object, get the key set up by the insert, and 

* update the object associated with it as part of the same transaction 
V 

BEGIN 

REPEATED 

INSERT INTO Object 
(Object 
, Name 
,Type 
, TypeName 
, PrimaryGrouping 
, PrimaryGroupingName 
, Terminals 
) 

VALUES 
(-1 

, :O.Name 

,:O.Type 

, :0. TypeName 

, :0. PrimaryGrouping 

, :0. PrimaryGroupingName 

, ;0. Terminals 

) ; 

INQUIRE_SQL ( : i = ERRORNO ) ; 

IF i 1=0 THEN 

ROLLBACK; 

RESUME; 
ENDIF; 

REPEATED 

SELECT :0. Object * K. Value 

FROM La st Key K 

WHERE K.LastKey = 'Object'; 

Object = O. Object; 

/* 

* Mark the identifiers as unchanged to prevent warnings 

* on the update. 
*/ 

FIELD (O . PrimaryGroupingName) .HasDataChanged = FALSE; 
FIELD (O. TypeName ) .HasDataChanged = FALSE; 
FIELD (O. Name) .HasDataChanged = FALSE; 

CurFrame.SendUserEvent (EventName = '0. Update'); 

END; 

ON Click Menu. File. Replace, 
ON Click Replace, 
ON UserEvent '0. Update' = 
BEGIN 

/* 

* Check if any of the identifier fields have changed. If so, warn 

* the user, as this may be a hit on Replace when Add was intended 
+ / 

IF ( FIELD { 0 . PrimaryGroupingName ) . HasDataChanged = TRUE OR 

FIELD (0. TypeName) .HasDataChanged = TRUE OR 

FIELD (0. Name) .HasDataChanged = TRUE) THEN 
Replace with message read from Problem *♦*»/ 
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IF (CurFrame .Conf irmPopup 

(MessageText = 'You will overwrite an existing object') ■ 

PU_Cancel) THEN 

ROLLBACK; 

RESUME; 
ENDIF; 

ENDIF; 

Update the enterable parts of the object record in the database, 
then update the type specific details. 

REPEATED 

UPDATE Object 0 

SET Type = :0.iype, 

PrimaryGrouping = :0 . PrimaryGrouping, 

TypeName = :O.TypeName, 

Pr imaryGroupingName = : 0 . Pr imaryGroupingName , 
Name = : 0 . Name , 
Description = :0. Description, 
Comment = :0. Comment, 
InService = :0. InService, 
OutService = :O.OutService, 
PositionX = :O.PositionX, 
PositionY = :0. PositionY, 
OwnerNumber = :O.OwnerNumber, 
SerialNumber = :O.SerialNumber, 
SpecNumber = :0. SpecNumber, 
LastChanged = Date { 'now' ) , 
LastChangedBy = DBMSInfo ( 'Username' ) 
WHERE : Object = 0. Object; ; 

Trash all the groupings in the database and replace them 
REPEATED 

DELETE FROM Grouping 
WHERE : Object = Member; 

i = 1; 

WHILE i <= OG.LastRowO DO 
REPEATED 

INSERT INTO Grouping 
(SystemVersion 
, Grouping 
, GroupingType 
, Member 
, MemberType 
, Relationship 
, Reference 



) 

VALUES 



( 



i = i 
ENDWHILE; 



OG[i] .SystemVersion 
OG[i] .Grouping 
OG[i] .GroupingType 
Obj ect 
O.Type 

0G[i] .Relationship 
OG[i] .Reference 

+ 1; • 



Trash all the measurements in the database and replace them 
REPEATED 
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WHERE 



: Object = Measurand; 



i = 1; 

WHILE i <= OM.LastRowO DO 
REPEATED 

INSERT INTO Measurement 
(Measurand 
, MeasurandType 
, Terminall 
, Terminal 2 
, SensorType 
, SensorMinimum 
, SensorMaximum 
, SensorAccuracy 
,ReversePolarity 
,MeasurerType 
, Measurer 
, Alarm 
, History 
, Trigger 
, EventLog 
, Input 
, Output 



) 

VALUES 



Object 



); 

i = i 
ENDWHILE; 

COMMIT; 



OM[i 
OM[i 
OM(i 
OM[i 
OM[i 
OM[i 
OM[i 
OM[i 
OM[i 
OM(i 
OM[i 
OM[i 
OM[i 
OMfi! 
OM[i 
OM[i; 

+ 1; 



MeasurandType 
.Terminall 
.Terminal 2 
. SensorType 
. SensorMinimum 
. SensorMaximum 
. SensorAccuracy 
.ReversePolarity 
.MeasurerType 
.Measurer 
.Alarm 
.History 
.Trigger 
. EventLog 
. Input 
. Output 



END; 



CurFrame . SendUserEvent ( EventName 
CurFrame . SendUserEvent ( EventName 



'T. Update' ) ; 
'O.GetAt tributes' ) ; 
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ON Click Menu. File. Exchange = 
BEGIN 

/• 

Go and get the piece of equipment to replace this one 

•/ 

RO = CALLFRAME FindObject 
(SuperType = O.BaseType 
) WITH 

WindowTitle = MenuButton (CurFrame.OriginatorField) .TextLabel ; 

IF RO IS NULL THEN 

ROLLBACK; 

RESUME; 
ENDIF; 

/* 

* Check that the replacement has the same number of terminals as the 

* current object. 
*/ 

SELECT :i = COUNT(*) 
FROM Object 0, 

Object R 
WHERE :0. Object » 0. Object AND 

:RO. Object = R. Object AND 

0. Terminals = R. Terminals; 

IF i - 0 THEN 

MESSAGE 'The replacement has a different number of terminals.' ; 
ROLLBACK; 
RESUME; 
ENDIF; 

/* 

Exchange all the terminals, groupings and measurements. Negate 

* the keys to prevent duplicates during the exchange. 

V 

UPDATE Terminal Tl 
FROM Terminal T2 
SET Object = - T2. Object 

WHERE (:0. Object = Tl. Object AND :R0. Object = T2. Object) OR 
(:R0. Object = Tl. Object AND :0. Object = T2. Object); 

UPDATE Terminal 

SET Object = - Object 

WHERE Object < 0; 

UPDATE Grouping Gl 
FROM Grouping G2 
SET Member = - G2. Member, 

MemberType = G2 .Member Type 
WHERE (:0. Object = Gl. Member AND :R0. Object = G2. Member) OR 

(:RO. Object = Gl. Member AND :0. Object = G2. Member); 

UPDATE Grouping 

SET Member = - Member 

WHERE Member < 0; 

UPDATE Measurement Ml 
FROM Measurement M2 
SET Measurand = - M2.Measurand 

WHERE (:0. Object = Ml. Measurand AND :RO. Object = M2 .Measurand) OR 
(:R0. Object = Ml. Measurand AND :0. Object = M2 .Measurand) ; 

UPDATE Measurement 

SET Measurand = - Measurand 

WHERE Measurand < 0; 
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Now change the primary grouping and name 

V 

UPDATE Object 01 
FROM Object 02 
SET Type = - 02. Type, 

PrimaryGrouping = 02 . Prima ryG roup ing, 

Name = 02 . Name 

WHERE (:0. Object = 01. Object AND :R0. Object = 02. Object) OR 
(:R0. Object = 01. Object AND :0. Object = 02. Object); 

UPDATE Object 

SET Type = - Type 

WHERE Type < 0; 

COMMIT; 

/* 

* Stay with the same network position - so change to the new object 

V 

Object « RO. Object; 

CurFrame.SendUserEvent (EventName = '0. Get At tributes ' ) ; 

END; 
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ON Click Menu. Edit .Type, 
ON Entry 0 . TypeName = 
/• 

Show the user the types that this object can belong to, so 

* that one may be selected 
*/ 

BEGIN 

i = O.iype; 

CALLFRAME SetType (Object = 0) ; 

IF i I = O.Type THEN 

FIELD (O . TypeName) .HasDataChanged = TRUE; 
ENDIF; 

RESUME; /* Keep input focus out of this field */ 

END; 

ON Click Menu. Edit .Groupings, 
ON Entry 0. Prima ryG roup ingName = 
/* 

* Show the user the groups that this object belongs to, so 

* that they can be edited 
V 

BEGIN 

i = O.PrimaryGrouping; 

CALLFRAME SetGrouping (Object = O, OG = OG) ; 

IF i != O.PrimaryGrouping THEN 

FIELD (O.PrimaryGroupingName) .HasDataChanged = TRUE; 
ENDIF; 

RESUME; /* Keep input focus out of this field */ 

END; 
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ON Click Menu. Edit .Network_l,' 
ON Click Network = 

BEGIN 

GlobalFrame [Frame$Connectivity Editor] . Frame . SendUserEvent 
(EventName = 'LoadObject_Dl" , Messagelnteger = Object); 

END; 

ON Click Menu. Edit .Network_2, 
ON Details Network = 

BEGIN 

GlobalFrame (Frame$ConnectivityEditor ] . Frame . SendUserEvent 
(EventName = ' LoadObject_D2 ' , Messagelnteger = Object); 

END; 

ON Click Menu. Edit .Measurements, 

ON Click Measurements = 

/* 

* Show the user the measurements made on this object, so 

* that they can be edited 

V 

BEGIN 

CALL FRAME SetMeasurement (Object = 0, OM = OM) ; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only, pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 

** Application: PowerSystemModel 

♦* Procedure: ObjectEditor 

PROCEDURE ObjectEditor 

OS = ObjectSummaryClass; /* Object summary V 

FrameName = VARCHAR(20) NOT NULL; /* Editor frame name */ 

FrameTitle = VARCHAR(80) NOT NULL; /* Editor frame title */. 

) = 

BEGIN 

REPEATED 

SELECT : FrameName = BT.EditorName 

FROM BaseType BT 

WHERE : OS. BaseType = BT.Type; 

IF FrameName = ' ' THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (0, OS.TypeName, "iype_006'); 

ROLLBACK; 

RETURN; 
ENDIF; 

FrameTitle = OS. PrimaryGroupingName + ' ' ♦ OS.TypeName + ' ' + OS . Name ; 
FrameTitle = Squeeze (FrameTitle) ? 
OPENFRAME : FrameName (Object = OS. Object) WITH 
WindowTitle = FrameTitle, 

ParentFrame = NULL; /* Should be parent frame of procedure 

RETURN; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Procedure : 



Power Sys t emMode 1 
LoadTypeList 



/* 
/* 
/• 
/* 
/* 



PROCEDURE LoadTypeList 

( 

EF = EnumField; 
StartType = INTEGER; 
Type = TypeClass; 
CList = ChoiceList; 
i = INTEGER NOT NULL; 
) = 

BEGIN 

/* 

* Set up the values in the choice list 

*/ 

CList = EF.ValueList ; 

CList .Choiceltems . Clear { ) ; 

CList ,ChoiceItems[l] .EnumValue = 0; 

CList .Choiceltems [1] .EnumText = "; 

i = 2; 



REPEATED 

SELECT :Type.Type = T.Type, 

: Type. Name = T.Name 
FROM Type T, 

ExtendedType ET 
WHERE : StartType = ET.SuperType AND 

ET. Type = T.Type 
ORDER BY Name 
BEGIN 

CList .Choiceltems [i] .EnumValue = Type. Type? 
CList .Choiceltems [i] .EnumText - Type. Name; 
i = i + 1; 

END; 

Ensure it is updated on the screen 
EF.UpdChoiceList ( ) ; 



Enumerated field to be set 
Type to start with */ 
Scratch type */ 
Scratch choice list entry 
Scratch integer */ 



END; 
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/ 



Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



V 

ON Click Menu. File. CloseBut ton = 

BEGIN 

RETURN; 

END; 



Application: 
Frame : 



PowerSystemModel 
Menu . File .CloseButton 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

( 



Object = INTEGER; 
OG s ARRAY OF GroupingClass ; 
OM = ARRAY OF MeasurementClass ; 
RO = ObjectSummaryClass; 
i = INTEGER; 
) = 

BEGIN 

CurFrame . SendUserEvent (EventName 

END; 



/* Object being edited •/ 

/* Groupings it belongs to v 

/* Measurements made on it */ 

/* Exchange replacement objec 

/* Scratch integer */ 



= 'O.GetAttributes' ) ; 



ON UserEvent 'T.GetAttributes ' = 
BEGIN 

REPEATED 

SELECT :C. Object = C. Object, 

:C.NominalMVAr = C .Nomina lMVAr, 

:C. VoltSensitivity = C. VoltSensitivity , 

: C.AVRDelay = C.AVRDelay 

FROM Capacitor C 

WHERE : Object = C. Object; 

ROLLBACK; 

END ; 

ON UserEvent 'T: Update ' = 
BEGIN 

REPEATED 

UPDATE Capacitor C 

SET NominalMVAr = : C . Nomina lMVAr , 

VoltSensitivity = :C. VoltSensitivity, 
AVRDelay = : C.AVRDelay 

WHERE : Object = C. Object; 



COMMIT; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

( 

Object = INTEGER; 
OG = ARRAY OF GroupingClass ; 
OM = ARRAY OF MeasurementClass ; 
RO = ObjectSummaryClass; 
i = INTEGER; 
) = 

BEGIN 

CurFrame . SendUserEvent ( EventName 

END; 

ON UserEvent ' T. Get Attributes ' = 
BEGIN 

REPEATED 

SELECT :C. Object = C. Object, 

:C. Object Address = C.ObjectAddress, 
:C. Controller = C. Controller, 
:C.ControllerAddress = C .Control lerAddress , 
:C. Cable = C. Cable 

FROM Computer C 

WHERE : Object = C. Object ; 

ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Computer C 

SET Object Address = : C.ObjectAddress, 
Controller = :C .Controller, 
ControllerAddress = :C.ControllerAddress, 
Cable = :C. Cable 

WHERE : Object = C.Object; 

COMMIT; 

END; 



/* Object being edited •/ 
/* Groupings it belongs to V 
/* Measurements made on it */ 
/* Exchange replacement objec 
/* Scratch integer */ 



= 'O.GetAttributes' ) ; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 
( 

Object = INTEGER; 

OG = ARRAY OF GroupingClass ; 

OM = ARRAY OF MeasurementClass ; 

RO = ObjectSummaryClass; 

i = INTEGER; 

N = INTEGER NOT NULL; 

A = FLOAT NOT NULL; 

B = FLOAT NOT NULL; 

kV = FLOAT; 

Dab = FLOAT; 

Dbc = FLOAT; 

Dca = FLOAT; 

Deq = FLOAT; 

GMReq = FLOAT; 

Radius eq = FLOAT; 

R = FLOAT; 

X = FLOAT; 

Bch = FLOAT; 

ZBase = FLOAT; 

Omega = FLOAT; 

Pi = FLOAT NOT NULL; 

) = 

BEGIN 

Pi = 3.141592654; 

CurFrame . SendUserEvent ( Even 

END; 



/* Object being edited */ 

/* Groupings it belongs to */ 

/* Measurements made on it */ 

/* Exchange replacement object 

/* Scratch integer */ 

/* Count */ 
/* Scratch */ 
/* Scratch */ 
/* Voltage */ 

/* GMD a phase to b phase */ 

/* GMD b phase to c phase */ 

/* GMD c phase to a phase */ 

/* Equivalent GMD */ 

/* Equivalent GMR for bundle * 

/* Equivalent radius for bundi 

/* Series resistance */ 

/* Series inductive reactance 

/* Shunt susceptance */ 

/* Impedance base */ 

/* Angular frequency */ 

/* Pi V 



= 'O.GetAttributes' ) ; 
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ON UserEvent ' T.GetAt tributes ' = 
BEGIN 

REPEATED 

SELECT :S. Object = S. Object, 
:S.R = S.R, 
:S.X = S.X, 
:S.Bch s S.Bch, 
:S. Length = S. Length, 
:S.TowerType = S.TowerType, 

: S . GroundConductorType = S . GroundConductorType , 
:S. PhaseConductorType = S . PhaseConductorType, 
: S . PhaseConductorCount = S . PhaseConductorCount , 
:S.PhaseConductorSpacing = S. PhaseConductorSpacing 

FROM Conductor S 

WHERE : Object = S. Object; 

REPEATED 

SELECT :kV = T.KVLevel 
FROM Terminal T 
WHERE :S. Object = T. Object- 
Cur Frame. SendUser Event (EventName = 'GetTowerType'); 
CurFrame.SendUser Event (EventName = 'GetGroundConductorType' ) ; 
CurFrame.SendUserEvent (EventName = 'Get PhaseConductorType' ) ; 

ROLLBACK; 

END; 

On UserEvent 'GetTowerType' = 
BEGIN 

REPEATED 

SELECT :S.TT. Object = TT. Object, 

:S.TT.Name = TTO.Name, 

:S.TT.Al_Offset = TT.Al_Offset, 

:S.TT.Al_Height 

:S.TT.Bl_Offset 

:S.TT.Bl_Height 

:S.TT.Cl_Offset 

:S.TT.C1 Height 

:S.TT.Gl_Offset 

:S.TT.Gl_Height 

:S.TT.A2_Offset 

:S.TT.A2_Height 

:S.TT.B2_Offset 

:S.TT.B2_Height 

:S.TT.C2_Offset 

:S.TT.C2 Height 

:S.TT.G2_Offset 

:S.TT.G2_Height 
FROM Toweriype TT, 

Object TTO 
WHERE : S.TowerType = TT. Object AND 

:S.TowerType = TTO. Object; 

ROLLBACK; 

END; 

On UserEvent 'GetGroundConductorType' = 
BEGIN 

REPEATED 

SELECT :S.GCT. Object = GCT. Object, 
:S.GCT.Name = GCTO.Name, 
:S.GCT. Resistance = GCT. Resistance, 
:S.GCT. Radius = GCT. Radius, 
rS.GCT.GMR = GCT.GMR, 



■ TT.Al_Height, 
= TT.BlJDffset, 
= TT.Bl_Height, 
= TT.ClJDf fset, 
= TT.Cl_Height, 
= TT.Gl_Offset, 
= TT.Gl_Height, 
= TT.A2_Offset, 
= TT.A2_Height, 
= TT.B2_Offset, 
= TT.B2_Height, 
= TT.C2_Offset, 
= TT.C2_Height, 
= TT.G2_Offset, 
= TT.G2_Height 
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:S.GCT. Ampacity = GCT. Ampacity 
FROM ConductorType GCT, 
Object GCTO 

WHERE :S.GroundConductorType = GCT. Object AND 
:S.GroundConductorType = GCTO. Object ; 

ROLLBACK; 

END; 

On UserEvent 'GetPhaseConductorType' = 
BEGIN 

REPEATED 

SELECT :S.PCT. Object = PCT. Object, 

:S.PCT.Name = PCTO.Name, 

:S.PCT. Resistance = PCT. Resistance, 

:S.PCT. Radius = PCT. Radius, 

:S.PCT.GMR = PCT.GMR, 

:S. PCT. Ampacity = PCT. Ampacity 
FROM ConductorType PCT, 

Object PCTO 

WHERE :S.PhaseConductorType = PCT. Object AND 
:S.PhaseConductorType = PCTO. Object; 

ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Conductor S 
SET R = :S.R, 

X = :S.X, 

Bch = :S.Bch, 

Length = :S. Length, 

TowerType = :S.TowerType, 

GroundConductorType = :S.GroundConductorType, 
PhaseConductorType = :S.PhaseConductorType, 
PhaseConductorCount = :S.PhaseConductorCount , 
PhaseConductorSpacing = :S.PhaseConductorSpacing 
WHERE : Object = S. Object ; 

COMMIT; 

END; 

ON Entry S.TT.Name = 
/* 

Show the user the list of possible tower types 

V 

BEGIN 

i * CALLFRAME SetObject (Type = Type $ TowerType 

,DefaultObject = S . TowerType ) ; 

IF i IS NOT NULL THEN 
S. TowerType = i; 

CurFrame.SendUserEvent (EventName = 'GetTowerType' ) ; 
CurFrame.SendUserEvent (EventName = 'Recalculate'); 
ENDIF; 

RESUME; /* Keep input focus out of this field */ 

END; 

ON Entry S. GCT. Name = 

/r 

Show the user the list of possible conductor types 

V 

BEGIN 
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i = CALLFRAME SetObject (Type = TypeSConductorType . 

, Def aultObject = S .GroundConductorType) ; 

IF i IS NOT NULL THEN 

S. GroundConductorType = i; 

CurFrame.SendUserEvent (EventName = 'GetGroundConductorType' ) ; 
CurFrame.SendUserEvent (EventName = 'Recalculate'); 
ENDIF; 

RESUME; /* Keep input focus out of this field */ 

END; 

ON Entry S.PCT.Name = 
/» 

Show the user the list of possible conductor types 

V 

BEGIN 

i = CALLFRAME SetObject (Type = TypeSConductorType 

, Def aultObject = S. PhaseConductorType) ; 

IF i IS NOT NULL THEN 

S. PhaseConductorType = i; 

CurFrame.SendUserEvent (EventName = ' Get PhaseConductorType' ) ; 
CurFrame.SendUserEvent (EventName = 'Recalculate'); 
ENDIF; 

RESUME; /* Keep input focus out of this field */ 

END; 
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ON UserEvent 'Recalculate', 
ON ChildSetValue S = 
BEGIN 

IF S.TowerType ! = 0 AND 

S.PhaseConductorType != 0 AND 
S. Length IS NOT NULL THEN 

/• 

Equivalent GMR and radius for bundles (from Dommel eq. 56) 

•/ 

N = S.PhaseConductorCount; 

IF S.PhaseConductorSpacing > (2.0 * S. PCT. Radius) THEN 
A = S.PhaseConductorSpacing / (2.0 • SIN (PI / N) ) ; 

ELSE 

A = (2.0 * S. PCT. Radius) / (2.0 * SIN (PI / N) ) ; 
ENDIF; 

GMReq = (N * S. PCT. GMR * (A ** (N - 1))) ** (1.0 / N) ; 
Radiuseq = (N * S. PCT. Radius * (A ** {N - 1))) ** (1.0 / N) ; 

/* 

** Get the GMD for each phase pair and the equivalent GMD 

** (from Stevenson eq. 3.52) 

*/ 

A = ABS (S.TT.Al_Height - S .TT. Bl_Height ) ** 2; 
B = ABS (S.TT.AlJDffset - S .TT. Bl_Of f set ) •* 2; 
Dab = (A * B) ** 0.5; 

IF S.TT.B2_Height != 0 THEN 

A = ABS (S.TT.Al.Height - S .TT. B2 .Height ) ** 2; 

B = ABS (S.TT.Al_Offset - S . TT. B2_Of f set ) ** 2; 

Dab = (Dab * ( (A + B) 0.5)) ** 0.5; 
ENDIF; 

A = ABS (S.TT.Bl_Height - S .TT.C1 .Height) ** 2; 
B n ABS (S.TT.B1 Offset - S .TT.Cl_Of f set ) ** 2; 
Dbc = (A + B) **~0.5; 

IF S.TT.C2_Height 1= 0 THEN 

A = ABS (S.TT.Bl.Height - S .TT.C2_Height) ** 2; 

B = ABS (S.TT.B1 Offset - S .TT.C2_Of f set ) ** 2; 

Dbc = (Dbc * ((A ♦ B) ** 0.5)) ** 0.5; 
ENDIF; 

A = ABS (S.TT.Cl.Height - S .TT. Al_Height ) ** 2; 
B = ABS (S.TT.Cl.Offset - S .TT. AlJDf f set ) ** 2; 
Dca = (A + B) 0.5; 

IF S.TT.A2- Height != 0 THEN 

A = ABS (S.TT.Cl_Height - S .TT. A2_Height ) ** 2; 

B = ABS (S.TT.Cl_Offset - S .TT. A2jDf f set ) ** 2; 

Dca = (Dca * ( (A + B) 0.5)) ** 0.5; 
ENDIF; 

Deq = (Dab * Dbc * Dca) ** (1.0 / 3.0); 

/* 

** Get the series reactance value in Ohms / Km (from Dommel eq. 54) 

and convert it to per cent for the segment length. 

V 

Omega = 2.0 * Pi # SP. Frequency ; 
ZBase = (kV ** 2) / SP.MVABase; 

X = Omega * (2.0 * (10.0**-4)) * LOG (Deq / GMReq); 
S.X = X / ZBase * S. Length * 100.0; 

/* 

Get the shunt susceptance in Siemens / Km (from Dommel eq. 58) 
** and convert it to per cent for the segment length. 
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V 

Bch = Omega * (10.0**-6) / (18.0 • LOG (Deq / Radiuseq) ) ; 
S.Bch = Bch * ZBase * S. Length »100.0; 

/* 

Get the resistance for the bundle in Ohms / Unit length 
** and convert it to per cent for the segment length. 

Add 2% for spiralling. 

V 

S.R = S.PCT. Resistance / S.PhaseConductorCount; 
S.R = S.R / ZBase * S. Length * 100.0; 
S.R = S.R * 1.02; 

ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under Che 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DEARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame: 



PowerSystemModel 
ConductorType 



INITIALIZE 
( 

Object = INTEGER; 

OG = ARRAY OF GroupingClass ; 

OM = ARRAY OF MeasurementClass ; 

RO b ObjectSummaryClass; 

i = INTEGER; 

) = 

BEGIN 

CurFrame . SendUserEvent ( EventName = 

END; 

ON UserEvent 'T.GetAttributes ' = 



V 
» / 



/* Object being edited */ 

/* Groupings it belongs to 

/* Measurements made on it 

/* Exchange replacement objec 

/* Scratch integer */ 



'O.GetAttributes' ) 



BEGIN 



/* 



Get the conductor details 



SELECT 



FROM 
WHERE 



:C. Ampacity = C. Ampacity, 
:C. Resistance = C .Resistance, 
: C.Radius = C.Radius, 
:C.GMR = C.GMR 
ConductorType C 
: Object = C. Object; ? 



ROLLBACK; 

END; 

ON UserEvent 'T. Update ' 
BEGIN 

UPDATE 
SET 



END; 



WHERE 
COMMIT; 



ConductorType C 
Ampacity » :C. Ampacity, 
Resistance = :C. Resistance, 
Radius = : C.Radius, 
GMR = : C.GMR 
: Object = C. Object; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

( 

Object = INTEGER; 
OG = ARRAY OF GroupingClass ; 
OM = ARRAY OF MeasurementClass ; 
RO = ObjectSummaryClass; 
OS = ObjectSummaryClass; 
i = INTEGER; 
) = 

BEGIN 

CurFrame . SendUserEvent ( EventName 
END; 

ON UserEvent 'T. Get At tributes ' = 
BEGIN 

REPEATED 

SELECT :C. Object = C. Object, 
C.Pfixed = C.Pfixed, 
C.Qfixed = C.Qfixed, 
C.Pnom = C.Pnom, 
C.Qnom = C.Qnom, 
C . PowerFactor = C.PowerFactor, 
C.PfixedPct = C.PfixedPct, 
C.QfixedPct = C.QfixedPct, 
C.PnomPct = C.PnomPct, 
C.QnomPct = C.QnomPct, 
C.PVexp = C.PVexp, 
C.QVexp = C.QVexp, 
C.PFexp = C.PFexp, 
C.QFexp = C.QFexp 
Consumer C 
rObject = C. Object; 



/* Object being edited */ 

/* Groupings it belongs to */ 

/* Measurements made on it */ 

/* Exchange replacement objec 

/*** Temp ***/ 

/* Scratch integer */ 



= 'O.GetAttributes' ) ; 



FROM 
WHERE 



ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Consumer C 
SET Type = :O.Type, 

Pfixed = : C.Pfixed, 

Qfixed = :C.Qfixed, 

Pnom 

Qnom 



/*** Temporary - to speed rules 



C . Pnom, 
: C.Qnom, 
PowerFactor = : C.PowerFactor, 
PVexp = : C.PVexp, 
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QVexp = :C.QVexp, 
PFexp = :C.PFexp, 
QFexp = :C.QFexp 
WHERE : Object = C.Object; 

COMMIT; 

END; 

/*** temporary special for consumers - make it easy to chase up load model * 
ON Properties 0 . Prima ryG roup ingName = 
BEGIN 

IF 0. PrimaryGrouping != Object$Null THEN 
REPEATED 

SELECT :CS. Object = 0. Object, 

:OS.BaseType = O.BaseType, 
:OS.Type = O.Type, 

: OS. PrimaryGrouping = 0. PrimaryGrouping, 
:0S .TypeName = O.TypeName, 
:0S.Name = O.Name, 

:OS.PrimaryGroupingName = 0. PrimaryGroupingName 
FROM Object 0 

WHERE :0. PrimaryGrouping = 0. Object; 

CALLPROC ObjectEditor (OS = OS) ; 
ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DEARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 



Object = INTEGER; 

OG = ARRAY OF GroupingClass ; 

OM = ARRAY OF MeasurementClass ; 

RO = ObjectSummaryClass; 

i = INTEGER; 

) = 

BEGIN 

CurFrame . SendUserEvent (Event Name 

END; 



/* Object being edited */ 

/* Groupings it belongs to */ 

/* Measurements made on it */ 

/* Exchange replacement objec 

/* Scratch integer */ 



'O.GetAt tributes' ) ; 



ON UserEvent 'T.GetAttributes ' = 
BEGIN 

REPEATED 

SELECT :G. Object = G. Object, 

:G.RatedMVA = G.RatedMVA, 
:G.MinimumMW = G.MinimumMW, 
:G . BaseMW = G.BaseMW, 
:G.MaximumMW = G.MaximumMW, 
:G.MinimumMVAr = G .MinimumMVAr , 
:G.BaseMVAr = G.BaseMVAr, 
:G.MaximumMVAr = G . MaximumMVAr , 
:G.MinimumkV = G.MinimumkV, 
:G.MaximumxV = G.MaximumkV, 
:G.X = G.X, 
: G . R = G • R, 

:G. Inertia = G. Inertia, 

:G. Damping = G. Damping, 

: G . Manua lToAVR = G. Manual To AVR, 

: G . AVRToManualLag = G . AVRToManualLag , 

:G.AVRToManualLead = G.AVRToManualLead, 

:G.NormalPF = G.NormalPF, 

:G. Short PF = G. Short PF, 

:G.LongPF = G.LongPF, 

:G.DownRampRate = G.DownRampRate, 

:G.UpRampRate = G.UpRampRate 

FROM Generator G 

WHERE : Object = G. Object; 



ROLLBACK; 

END; 
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ON User Event ' T .Update ' = 
BEGIN 

REPEATED 

UPDATE Generator G 

SET RatedMVA = :G.RatedMVA, 

MinimumMW = :G. MinimumMW, 
BaseMW = :G. BaseMW, 
MaximumMW = :G .MaximumMW, 
MinimumMVAr = :G .MinimumMVAr , 
BaseMVAr = :G.BaseMVAr # 
MaximumMVAr = :G. MaximumMVAr, 
MinimumkV = :G. MinimumkV, 
MaximumkV = :G. MaximumkV, 
X = :G.X, 
R = : G . R , 

Inertia = :G. Inertia, 
Damping = :G. Damping, 
Manual To AVR = : G. Manual To AVR, 
AVRToManualLag = : G . AVRToManualLag , 
AVRToManualLead = :G.AVRToManualLead, 
NormalPF = :G.NormalPF, 
Short PF = :G. Short PF, 
LongPF = :G.LongPF, 
DownRampRate = :G.DownRampRate, 
UpRampRate = :G.UpRampRate 
WHERE : Object = G.Object; 

COMMIT; 

END; 
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Copyriqhi 1991, 1392 by Unified Inf ormat ion, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright lav/s of che Uniced Scaces. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013. or in FAR 
52.227-19, as applicable. 



INITIALIZE 

( 

^ jeC ^w N If G £ R; • , Object being edited V 

™ = 91 GroupingClass; /* Groupings it belongs to V 

Oh = ARRAY OF MeasurementClass ; /* Measurements made on it V 

*° %2£!.2SE Su ^^ class '* /* Exchange replacement objec: 
i_= INTEGER; scratch integer V 

BEGIN 

CurFrame.SendUserEvent (EventName = 'O.GetAttributes ' ) ; 

END; 

ON UserEvent 'T.GetAttributes ' = 
BEGIN 

REPEATED 

SELECT :P. Object = P. Object, 

:P. Initials = P. Initials, 

: P.LoginName = P.LoginName, 

: P. Password = P. Password 
FROM Person P 
WHERE : Object = P.Object; 

ROLLBACK; 

END; 



ON UserEvent '".Update' = 
BEGIN 

REPEATED 

UPDATE Person P 

SET Initials = :P. Initials, 

LoginName = : P.LoginName, 
Password = : P. Password 

WHERE : Object = P .Object ; 

COMMIT; 

E2;D ; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

( 

Object = INTEGER; 
OG = ARRAY OF GroupingClass ; 
OM = ARRAY OF MeasurementClass ; 
RO = ObjectSummaryClass; 
i = INTEGER; 
) = 

BEGIN 

CurFrame.SendUserEvent (EventName = 'O.GetAttributes' ) ; 

END; 

ON UserEvent ' T.GetAt tributes ' = 
BEGIN 

REPEATED 

SELECT :R. Object = R. Object, 

:R.NominalMVAr = R. Nomina lMVAr, 
:R.VoltSensitivity = R. Volt Sensitivity, 
: R.AVRDelay = R.AVRDelay 

FROM Reactor R 

WHERE : Object = R. Object ; 

ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Reactor R 

SET NominalMVAr = :R . Nomina lMVAr, 

VoltSensitivity = :R.VoltSensitivity, 
AVRDelay = : R.AVRDelay 

WHERE : Object = R. Object ; 

COMMIT; 

END; 



/* Object being edited */ 

/* Groupings it belongs to V 

/* Measurements made on it V 

/* Exchange replacement objec 

/* Scratch integer */ 
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******* ********* 

Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

( 

Object = INTEGER; /* Object being edited */ 

OG = ARRAY OF GroupingClass ; /* Groupings it belongs to */ 

OM = ARRAY OF MeasurementClass ; /* Measurements made on it */ 

RO = ObjectSummaryClass; /* Exchange replacement objec 

i = INTEGER; /* Scratch integer */ 

) = 

BEGIN 

CurFrame.SendUserEvent (EventName = 'O.GetAttributes' ) ; 

END? 

ON UserEvent ' T.GetAt tributes ' = 
BEGIN 

REPEATED 

SELECT :S. Object = S. Object, 

:S. NormalOpen = S.NormalOpen 
FROM Switch S 
WHERE : Object = S. Object ; 

ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Switch S 

SET NormalOpen = : S .NormalOpen 
WHERE : Object = S. Object ; 

COMMIT; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

( 

Object = INTEGER; 

OG = ARRAY OF GroupingClass ; 

OM = ARRAY OF MeasurementClass ; 

RO = Object SummaryClass; 

i = INTEGER; 

) = 

BEGIN 

CurFrame . SendUserEvent { EventName = 

END; 

ON UserEvent 'T.GetAttributes' = 
BEGIN 

REPEATED 
SELECT 



/* Object being edited */ 

/* Groupings it belongs to */ 

/* Measurements made on it */ 

/* Exchange replacement object 

/* Scratch integer */ 



'O.GetAttributes' ) ; 



FROM 
WHERE 



T. Object = T. Object, 

T.TelemetryMinimum = T.TelemetryMinimum, 
T.TelemetryMaximum = T.Tel erne try Maximum, 
T. XORMask = T.XORMask, 
T. Input = T. Input , 
T. Output = T. Output, 
T.CardAddress = T.CardAddress, 
T.WordAddress = T.WordAddress, 
T.Size = T.Size, 
T. Offset = T. Offset, 
T.PowerCable = T. PowerCable, 
T.ReturnCable = T.ReturnCable, 
T.GroundCable * T.GroundCable, 
T.TerminationCable = T.TerminationCable, 
T. Panel = T. Panel 
Telemetry T 
: Object - T.Object; 



ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Telemetry T 

SET Tel erne tryMinimum = : T.TelemetryMinimum, 
TelemetryMaximum = : T.TelemetryMaximum, 
XORMask = : T.XORMask, 
Input = :T. Input, 
Output = :T. Output, 
CardAddress = : T.CardAddress, 
WordAddress = : T.WordAddress, 
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Size = :T.Size, 
Offset = :T. Offset, 
PowerCable = :T. PowerCable, 
ReturnCable = :T.ReturnCable, 
GroundCable = :T\GroundCable, 
TerminationCable = :T.TerminationCable, 
Panel = :T. Panel 
WHERE -.Object = T. Object ; 

COMMIT; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology' of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DEARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame : 



Power Sys t emMode 1 
TowerType 



INITIALIZE 

( 



Object = INTEGER; 

OG = ARRAY OF GroupingClass ; 

OM = ARRAY OF MeasurementClass ; 

RO = ObjectSummaryClass; 

i = INTEGER; 

) = 

BEGIN 

CurFrame . SendUserEvent {EventName 

END; 



/* Object being edited V 

/* Groupings it belongs to */ 

/* Measurements made on it */ 

/* Exchange replacement objec 

/* Scratch integer V 



'O.GetAttributes' ) 



ON UserEvent 
BEGIN 



'T.GetAttributes' 



Get the tower details 



REPEATED 
SELECT 



FROM 
WHERE 



TT.Al_Offset = TT.Al_Of fset, 

TT.Al_Height = TT.Al_Height, 

TT.Bl_Offset a TT.Bl_Of fset, 

TT.Bl_Height = TT.Bl_Height , 

TT.Cl.Offset = TT.Cl_Offset, 

TT.Cl_Height = TT.Cl_Height , 

TT.Gl_Offset = TT.Gl_Offset, 

TT.Gl_Height = TT.Gl_Height, 

TT.A2_Offset = TT.A2_Offset, 

TT.A2_Height ■ TT.A2_Height, 

TT.B2_Offset = TT.B2_Offset, 

TT.B2_Height = TT.B2_Height, 

TT.C2_Offset = TT.C2_Of f set , 

TT.C2_Height = TT.C2_Height, 

TT.G2_Offset = TT.G2_Offset, 

TT.G2_Height = TT.G2_Height 
TowerType TT 
: Object = TT. Object; 



ROLLBACK; 

END; 
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ON UserEvent ' T. Update ' = 



BEGIN 

UPDATE 
SET 



WHERE 



Tower Type 
Al_Of fset 
Al_Height 
Bl_Of fset 
Bl_Height 
Cl_Offset 
Cl_Height 
Gl_Of fset 
Gl_Height 
A2_Of fset 
A2_Height 
B2_Of fset 
B2_Height 
C2_Offset 
C2 Height 
G2_Offset 
G2_Height 
: Object = 



TT 

;TT. 
TT. 
TT. 
TT. 
TT. 
TT. 
TT. 
TT. 
TT. 
TT. 
:TT. 
TT. 
TT. 
TT. 
TT. 
TT. 
TT.Obj 



Al Offset, 

Al_Height, 

Bl_Of fset , 

Bl Height, 

Cl_Of fset, 

Cl_Height, 

Gl.Of fset, 

Gljieight, 

A2_Offset, 

A2 Height, 

B2_Offset, 

B2_Height, 

C2_Offset, 

C2_Height, 

G2_Offset, 

G2_Height 

ect ; 



COMMIT; 

END? 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

Object = INTEGER; /* Object being edited */ 

OG = ARRAY OF GroupingClass ; /* Groupings it belongs to V 

OM = ARRAY OF MeasurementClass ; /* Measurements made on it V 

RO = ObjectSummaryClass; /* Exchange replacement objec 

i = INTEGER NOT NULL; /* Scratch integer •/ 

) = 

BEGIN 

CurFrame.SendUserEvent (EventName = 'O.GetAttnbutes ' ) ; 

END ; 

ON UserEvent 'T.GetAttributes ' = 
BEGIN 

REPEATED 

SELECT :T. Object = T. Object, 

:T. Phases = T. Phases, 

: T . GMag = T.GMag, 

: T . BMag = T.BMag, 

:T.MagSatFlux = T.MagSatFlux, 

:T.BMagSat = T.BMagSat 
FROM Transformer T 
WHERE : Object = T. Object ; 

/% The number of terminals is determined by the number of windings, 

* and can be changed. Set the terminal count in the object to 0 to 

* prevent any confusion (especially if this is used as a template 

* for an Add) 
*/ 

0. Terminals = 0; 

CurFrame.SendUserEvent (EventName = 'W.GetAttributes ' ) ; 
CurFrame.SendUserEvent (EventName = 'TS.GetAttributes' ) ; 
ROLLBACK; 

END; 

ON UserEvent 'W.GetAttributes' = 
BEGIN 

/* 

Get the winding data 

V 

i = 1; 
W.Clear 0 ; 

REPEATED 

SELECT :W[i]. Object = W. Object, 

:W[i] .Winding = W. Winding, 
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WHERE 
BEGIN 
i 

END; 
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W[i]. Source = W. Source, 
Wfij.Name = w.Name, 

W[i j .LoadTapChanger = W. LoadTapChanger , 

WfiJ .NominalKV = W.NominalKV, 

W[i] .NeutralKV = W.NeutralKV, 

W(i] .BIL = W.BIL, 

W[i .RacedMVA = W.RatedMVA, 

W[i] . ShortTermMVA = W.ShortTermMVA, 

W[i] . Emergen cyMV A = W.EmergencyMVA, 

Wtij.LowStep = W.LowStep, 

W[i] .HighStep = W.HighStep, 

W[ij -NeutralStep = W.NeutralStep, 

W(i] .StepSize = W.StepSize, 

W[iJ .PhaseShift = w. PhaseShif-t 

Winding W 

: Object = W. Object 



i + 1; 



END; 



ROLLBACK; 
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ON UserEvent 'TS .Get At tributes ' = 
BEGIN 

/* 

** Get the tap setting measurements 



i - 1; 

TS. Clear 0 ; 



REPEATED 
SELECT 



FROM 

WHERE 

BEGIN 



.Object = TS .Object , 
.Windingl = TS. Windingl, 
.TapStepl = TS.TapStepl, 
.Winding2 = TS.Winding2, 
,TapStep2 = TS,TapStep2, 
.Winding3 = TS.Winding3, 
.TapStep3 = TS.TapStep3, 
.Source = TS. Source, 
.R0 1.2 = TS.R0.1_2, 
.Z0_l_2 = TS.Z0_1_2 
.Rl 1.2 = TS.R1.1_2 
.Zl'l 2 = TS.Z1_1_2 
.R0~2_3 = TS.R0.2_3 
.Z0_2_3 = TS.Z0_2_3 
,R1_2_3 = TS.R1.2_3 
• Zl_2_3 = TS.Z1_2_3 
.R0 3.1 = TS.R0.3.1 
.Z0~3_l = TS.Z0.3_1 
.Rl.3.1 = TS.R1.3_1 
.Zl 3.1 = TS.Z1.3.1 
.R0_1 = TS.R0.1, 
.Z0.1 = TS.Z0_1, 
.X0_1 = TS.X0_1, 
.Rl_l = TS.R1_1, 
.Zl_l = TS.Z1_1, 
.Xl_l = TS.Xl.l, 
.R0.2 = TS.R0_2, 
.Z0_2 = TS.Z0_2, 
.X0_2 * TS.X0_2, 
.Rl_2 = TS.R1_2, 
.Zl 2 = TS.Z1_2, 
.Xl_2 = TS.X1_2, 
.R0_3 = TS.R0.3, 
.Z0 3 = TS.Z0_3 / 
.X0_3 = TS.X0_3, 
.Rl_3 = TS.R1_3, 
.Zl_3 = TS.Z1_3, 
.Xl_3 = TS.X1_3 



: Object = TS. Object 



:TS 


i 


:TS 


i ! 


:TS 


i 


:TS 


i; 


:TS 


i' 


:TS 


'i. 


:TS 


i 


:TS 


[i, 


:TS 


[i\ 


:TS 


,i 


:TS 


'i'. 


:TS 


i 


:TS 
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:TS 


[i. 


:TS 
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:TS 
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:TS 
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:TS 
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:TS 
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:TS 
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:TS 
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:TS 
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:TS 


i. 


:TS 
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:TS 




:TS 


i 


:TS 


[i! 


:TS 


i. 


:TS 


i. 


:TS 


,i. 


:TS 


i', 


:TS 


!i! 


:TS 


i! 


:TS 


i, 


:TS 


,i, 


:TS 




:TS 


i 


:TS 





END; 



IF TS[i] .Windingl 0 THEN 

TS[i] .WindinglName = W(TS[i] .Windingl] .Name; 
ENDIF; 

IF TS[i] .Winding2 != 0 THEN 

TS[i] .Winding2Name = W[TS[i] .Winding2] .Name; 
ENDIF; 

IF TS[i] .Winding3 != 0 THEN 

TS[i] .Winding3Name = W[TS(i] .Winding3] .Name; 
ENDIF; 

i = i + 1; 
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ROLLBACK; 



WO 94/06087 



PCT/US93/08233 



148 

/* 

** Edit a transformer winding 

*/ 

ON ChildProperties W = 
BEGIN 

IF FIELD (W) .Act iveRow = 0 THEN 

RESUME; 
ENDIF; 

CALLFRAME SetWinding (Winding = W[]); 

END; 

ON DeleteRow W = 
BEGIN 

IF FIELD (W) .ActiveRow = 0 THEN 

RESUME; 
ENDIF; 

/* 

* Check that the winding is not referenced by a tap setting 

i = 1; 

WHILE i <= TS.LastRowO DO 

IF TS[i] .Windingl = W[]. Winding OR 
TS(i] .Winding2 = W[] .Winding OR 
TS(i] .Winding3 = W[]. Winding THEN 
FIELD (TS) .ActiveRow = i; 

INSERT INTO GrassCatcher (Object, Text, Problem) 

VALUES ( :W[] .Object, :W[].Name, 'Transformer 015 ') ; 
ROLLBACK; 
RESUME; 
ENDIF; 

i = i + 1; 
ENDWHILE; 

/* 

Back up any references to windings beyond this one 

V 

i = 1; 

WHILE i <= TS.LastRowO DO 

IF TS[i] .Windingl > W[]. Winding THEN 

TS[i] .Windingl = TS [i] .Windingl - 1; 
ENDIF; 

IF TS[i] .Winding2 > W[]. Winding THEN 

TS[i) .Winding 2 = TS [i] .Winding2 - 1; 
ENDIF; 

IF TS[i] .Winding3 > W[J. Winding THEN 

TS[i] .Winding3 = TS[i] .Winding3 - 1; 
ENDIF; 

i = i + 1; 
ENDWHILE; 

W.RemoveRowtRowNumber = FIELD (W) .CurRow) ; 

END; 

ON ClearTable w = 
BEGIN 

IF TS.LastRowO != 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
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VALUES ( :W[] .Object, ' Trans former_016 ' ) ; 
ROLLBACK; 
RESUME; 
ENDIF; 

W.Clear () ; 

END; 
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Edit a transformer tap setting measurement 

I ChildProperties TS = 
BEGIN 

IF FIELD (TS) .Act iveRow =: 0 THEN 

RESUME; 
ENDIF; 

OPENFRAME SetTapSetting (TapSetting = TS[], W * W) WITH 
WindowTitle = CurFrame.WindowTitle; 

END; 
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ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Transformer T 

SET Phases = :T. Phases, 

GMag = : T . GMag , 

BMag = : T . BMag , 

MagSatFlux - :T.MagSatFlux, 

BMagSat = :T.BMagSat 
WHERE : Object = T. Object; 

CurFrame . SendUserEvent (EventName = 'W.Update'); 
CurFrame.SendUserEvent (EventName = 'TS. Update' ) ; 
COMMIT; 

END; 
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ON User Event 'W. Update' = 
BEGIN 

/* 

* Preserve any terminals that are defined for the transformer by 

* altering the terminal number so that it is not the same as the 
winding number, then delete all the windings.- 

V 

REPEATED 

UPDATE Terminal T 

SET Terminal = -Terminal 

WHERE : Object = T. Object; 

REPEATED 

DELETE FROM Winding W 

WHERE : Object = W. Object ; 

/* 

Loop through the table field, inserting each winding in turn. 
*/ . 
i = 1; 

WHILE i <= W.LastRowO DO 
REPEATED 

INSERT INTO Winding 
(Object 
, Name 

, LoadTapChanger 
,NominalKV 
,NeutralKV 
,BIL 

,RatedMVA 
, ShortTermMVA 
, EmergencyMVA 
,LowStep 
,HighStep 
,NeutralStep 
, StepSize 
, PhaseShift 



) 

VALUES 



); 



( 

W[i 
W[i 
W[i 
W[i 
W[i 
W[i 
W(i 
W[i 
W{i 
W[i 
W[i 
W[i 
W[i 



Object 
.Name 

. LoadTapChanger 
.NominalKV 
.NeutralKV 
.BIL 

.RatedMVA 

. ShortTermMVA 

. EmergencyMVA 

.LowStep 

.HighStep 

.NeutralStep 

.StepSize 

. PhaseShift 



IF IIErrorNumber != 0 THEN 

FIELD (W) .Act iveRow = i; 

Cur Frame . PurgeUserEvent ( ) 

ROLLBACK; 

RESUME; 
ENDIF; 



i = i + 1; 
ENDWHILE; 
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Update the new terminal associated with the winding with the 
connectivity information from the old terminal that was 
preserved above. The match is done on the KVlevel - this means 
that is the NominalKV of a winding is changed the terminal 
will get disconnected automatically and will have to be 
reconnected by hand. Then blow the old terminals away and ensure 
that the object's maximum terminal count is correct. 

REPEATED 

UPDATE Terminal NT 

FROM Terminal OT 

SET Node = OT.Node 

WHERE .-Object = NT. Object AND 

NT. Terminal > 0 AND 

: Object = OT. Object AND 

OT. Terminal < 0 AND 

OT.KVLevel = NT. KVLevel ; 

REPEATED 

DELETE FROM Terminal- 
WHERE .-Object = Object AND 
Terminal < 0; 

i = W.LastRow( ) ; 
REPEATED 

UPDATE Object 0 

SET Terminals = :i 

WHERE : Object = 0. Object ; 

COMMIT; 

END; 
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ON UserEvent 'TS. Update' = 
BEGIN 

/* 

* Blow away all the current measurements, and replace 

* them with a new set (too many things can be edited to allow 

* clean identification of the old row) 
•/ 

REPEATED 

DELETE FROM TapSetting TS 
WHERE : Object = TS. Object; 

i = 1; 

WHILE i <= TS.LastRowO DO 

/* 

** Insert the new measurements 

V 

REP E ATED 

INSERT INTO TapSetting 

( 

Object, 

Windingl, 

TapStepl, 

Winding2 , 

TapStep2 , 

Winding3 , 

TapStep3, 

Source, 

Rl_l_2, 

Zl_l_2, 

R0_l_2 , 

Z 0.1.2, 

Rl_2_3 , 

Zl.2.3 , 

RO.2.3 , 

Z 0.2.3, 

Rl.3.1 , 

Zl_3_l, 

RO.3.1, 

Z0.3.1, 

Rl.l, 

Zl_l, 

Xl.l, 

R0.1, 

Z0.1, 

X0.1 , 

Rl_2, 

Z1.2, 

X1.2, 

R0.2, 

Z0.2, 

X0.2, 

Rl_3, 

Z1.3, 

X1.3, 

R0.3, 

Z0.3, 

X0.3 

) 

VALUES 
( 

: Object, 

:TS[i] .Windingl, 
:TS[i] .TapStepl, 
:TS[i] .Winding2, 
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TS 


[ i , 


.TapStep2, 


TS 


i 


.Winding3, 


TS 


, i ! 


.TapStep3, 


TS 


i] 


. Source, 


TS 


'.i'. 


.Rl_l_2, 


TS 


' i ] 


.Z 1_1.2, 


TS 


' i] 


.RO 1 2, 


TS 




. ZO.1.2 , 


TS 




.Rl.2.3, 


TS 


i ] 


. Zl.2.3 , 


TS 


[i] 


• RO.2.3, 


TS 


[i] 


• Z 0.2.3, 


TS 


i] 


•Rl-3.1, 


TS 


,i] 


.Zl.3.1, 


TS 


i ] 


.R0.3.1, 


TS 


'ij 


.Z 0.3.1, 


TS 


i] 


.Rl_l, 


TS 


i] 


.Zl.l, 


TS 


, i ] 


.Xl.l, 


TS 


[i] 


.R0.1, 


TS 


i 1 


.ZO 1, 


TS 


i ] 


.X0.1, 


TS 


!i] 


.Rl_2, 


TS 


i] 


.Z1.2, 


TS 


!i] 


.XI 2, 


TS 


'i] 


.R0.2, 


TS 


i] 


.Z0.2, 


TS 


i ] 


.XO 2, 


TS 


i] 


.Rl_3, 


TS 


i] 


. Z1.3 , 


TS 


i] 


.X1.3, 


TS 


i ] 


.RO 3, 


TS 


i] 


.Z0.3, 


TS 


i] 


.X0.3 



IF IIErrorNumber != 0 THEN 

FIELD (TS) .Act iveRow = i; 

CurFrame . PurgeUserEvent ( ) ; 

ROLLBACK; 

RESUME; 
ENDIF; 

i = i ♦ 1; 
ENDWHILE; 



COMMIT; 

END; 
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/ ** * ***** ***** ***** * 

Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 

INITIALIZE 

( 

Winding = WindingClass ; /* Passed winding */ 

) = 

BEGIN 

W = Winding. Duplicate ( ) ; 

END; 

On Entry W.NominalKV = 
BEGIN 

W.NominalKV = CALLFRAME SetKVLevel (KVLevel = W.NominalKV); 
RESUME; /* Keep input focus out of this field */ 

END; 

ON Click Apply_Button = 
BEGIN 

Winding. Name = W.Name; 

Winding. LoadTapChanger = W.LoadTapChanger ; 
Winding. NominalKV = W.NominalKV; 
Winding. NeutralKV = W.NeutralKV; 
Winding. BIL = W.BIL; 
Winding. Rat edMVA = W.RatedMVA; 
Winding. ShortTermMVA = W. Short TermMVA; 
Winding. EmergencyMVA = W.EmergencyMVA; 
Winding. LowStep = W.LowStep; 
Winding. HighStep = W.HighStep; 
Winding. NeutralStep = W.NeutralStep; 
Winding. StepSize = W.StepSize; 
Winding. PhaseShi ft = W.PhaseShift; 
RETURN TRUE; 

END; 

ON Click Cancel_Button = 
BEGIN 

RETURN FALSE; 

END; 



WO 94/06087 



PCT/US93/08233 



158 




WO 94/06087 



PCT/US93/08233 



159 



Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 
( 



TapSetting = TapSettingClass; 
W = ARRAY OF WindingClass ; 

i = INTEGER NOT NULL; 



MinValue = INTEGER; 
MaxValue = INTEGER; 
NameplateMVA = FLOAT; 
KVCorrection = FLOAT; 
NameplateKV = FLOAT; 
CF1 = FLOAT; 
CF2 = FLOAT; 
CF3 = FLOAT; 
) = 

BEGIN 

FIELD (TS.Windingl) 
FIELD (TS.Windingl) 
FIELD (TS.Windingl) 



/* Passed tap setting */ 

/* Passed windings */ 

/*• Scratch integer V 

/* Min value for slider */ 

/* Max value for slider */ 

/* Rated MVA */ 

/* kV correction for tap setting * 

/* kV of measurement */ 

/• Winding 1 correction factor V 

/* Winding 2 correction factor */ 

/* Winding 3 correction factor -/ 



i = 1; 



ValueList .Choiceltems .Clear ( ) ; 
ValueList .Choiceltems [1] .EnumValue = 0; 
ValueList .Choiceltems [lj .EnumText = ' ' ; 



WHILE i <= W.LastRowO DO 

FIELD (TS.Windingl) .ValueList .Choiceltems [i+1] .EnumValue 
FIELD (TS.Windingl) .ValueList .Choiceltems [i+lj .EnumText = 
i = i + 1; 

ENDWHILE; 



= i; 

W[i] .Name; 



FIELD { TS . Winding2 ) .ValueList 
FIELD (TS.Winding3) .ValueList 

TS = TapSetting.DuplicateO ; 



FIELD (TS.Windingl) .ValueList; 
FIELD (TS.Windingl) .ValueList; 



END; 



CurFrame . SendUserEvent (EventName 
CurFrame . SendUserEvent (EventName 
CurFrame . SendUserEvent ( EventName 



'TS.Windingl' ) 
'TS.Winding2' ) 
'TS.Winding3' ) 
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ON UserEvent ' TS . Windingl ' , 
ON SetValue TS. Windingl = 

BEGIN 

IF TS. Windingl = 0 THEN 
MinValue = 0; 
MaxValue = 0; 

ELSE 

MinValue = W [TS . Windingl ] . LowStep ; 
MaxValue = W[TS .Windingl] .HighStep; 
ENDIF; 

IF TS.TapStepl < MinValue OR 
TS.TapStepl > MaxValue THEN 
TS.TapStepl = (MinValue + MaxValue) / 2; 

ENDIF; 

IF MinValue = MaxValue THEN 

FIELD (TS .Taps tepl ) .MinValue = MinValue; 
FIELD (TS.TapStepl) .MaxValue = MaxValue + 1; 
FIELD (TS. TapStepl ) .UpdateBias = FB_Visible; 

ELSE 

FIELD (TS.TapStepl) .MinValue = MinValue; 
FIELD (TS.TapStepl) .MaxValue = MaxValue; 
FIELD (TS.TapStepl) .UpdateBias = FB_Changeable; 
ENDIF; 

END; 

ON UserEvent 'TS .Winding2 ' , 
ON SetValue TS.Winding2 = 

BEGIN 

IF TS.Winding2 = 0 THEN 
MinValue = 0; 
MaxValue = 0; 

ELSE 

MinValue = W[TS .Winding2] .LowStep ; 
MaxValue = W[TS.Winding2] .HighStep; 
ENDIF; 

IF TS.TapStep2 < MinValue OR 
TS.TapStep2 > MaxValue THEN 
TS.TapStep2 = (MinValue + MaxValue) / 2; 

ENDIF; 

IF MinValue = MaxValue THEN 

FIELD (TS. TapS tep2) .MinValue = MinValue; 
FIELD (TS.TapStep2) .MaxValue = MaxValue + 1; 
FIELD (TS. TapS tep2) .UpdateBias = FB_Visible; 

ELSE 

F IELD(TS. TapS tep2) .MinValue = MinValue; 
FIELD (TS.TapStep2) .MaxValue = MaxValue; 
FIELD (TS.TapStep2) .UpdateBias = FB_Changeable; 
ENDIF; 



ON UserEvent 'TS.Winding3 ' , 
ON SetValue TS.Winding3 = 

BEGIN • 
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IF TS.Winding3 = 0 THEN 
MinValue = 0; 
MaxValue = 0; 

ELSE 

MinValue = W[TS .Winding3) .LowStep; 
MaxValue = W[TS .Winding3 ] .HighStep; 
ENDIF; 

IF TS.TapStep3 < MinValue OR 
TS.TapStep3 > MaxValue THEN 
TS.TapStep3 = (MinValue + MaxValue) / 2; 

ENDIF; 

IF MinValue = MaxValue THEN 

FIELD (TS.TapStep3) .MinValue = MinValue; 
FIELD (TS. TapS tep3) .MaxValue = MaxValue + 1; 
FIELD ( TS. TapStep3 ) .UpdateBias = FB_Visible; 

ELSE 

FIELD (TS .TapStep3) .MinValue = MinValue; 
FIELD (TS. TapS tep3) .MaxValue = MaxValue; 
FIELD (TS. TapS tep3) .UpdateBias = FB_Changeable; 
ENDIF; 

END; 
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ON Click Apply_Button = 
BEGIN 

TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting _ _ 
TapSetting. Z0_l_2 
TapSetting. Rl_2_3 
TapSetting.Zl_2_3 
TapSetting. R0_2_3 
TapSetting.Z0_2_3 
TapSetting.Rl_3_l 
TapSetting . Zl_3_l 
TapSetting. R0_3_l 
TapSetting. Z0_3_l 
TapSetting. Rl_l ■ 
TapSetting. Zl_l = 
TapSetting.Xl_l = 
TapSetting. R0_1 = 
TapSetting. Z0_1 = 
TapSetting.XO_l 
TapSetting. Rl_2 
TapSetting. Zl_2 
TapSetting.Xl_2 
TapSetting. R0_2 
TapSetting.Z0_2 
TapSetting.X0_2 
TapSetting.Rl_3 
TapSetting.Z1.3 
TapSetting.Xl_3 
TapSetting.R0_3 
TapSetting. Z0_3 
TapSetting.X0_3 
RETURN; 

END; 

ON Click Cancel_Button 
BEGIN 

RETURN; 

END; 



.Windingl = TS.Windingl; 

.WindinglName = FIELD (TS.Windingl) .CurEnumText; 
.TapStepl = TS.TapStepl; 
.Winding2 = TS.Winding2; 

.Winding2Name = FIELD (TS.Winding2) .CurEnumText ; 
.TapStep2 = TS.TapStep2; 
.Winding3 = TS.Winding3; 

.Winding3Name = FIELD (TS.Winding3) .CurEnumText ; 
.TapStep3 = TS.TapStep3; 
.Source = TS. Source; 
.Rl_l 2 = TS.R1_1_2 
.Zl_l_2 = TS.Z1_1_2 
R0_l_2 = TS.R0.1_2 
= TS.Z0_1_2 
= TS.R1_2_3 
= TS.Z1_2_3 
= TS.R0_2_3 
= TS.Z0_2_3 
= TS.R1_3_1 
= TS.Z1_3_1 
= TS.RCL.3_1 
= TS.Z0_3_1 
TS.R1.1 
TS.Z1_1 
= TS.X1.1 
= TS.R0_1 
= TS.Z0_1 
= TS.X0_1 
= TS.R1_2 
= TS.Z1_2 
= TS.X1_2 
= TS.R0_2 
= TS.Z0_2 
= TS.X0_2 
r TS.R1_3 
= TS . Zl_3 
= TS . Xl_3 
= TS.R0.3 
= TS.Z0_3 
= TS.XCL3 
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ON ChildSetValue TS = 
BEGIN 

IF TS.Z1_1_2 IS NULL THEN 

RESUME NEXT; 
ENDIF; 

/• 

** Check that the windings are set up OK 

V 

IF TS.Windingl = 0 OR TS.Winding2 = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 

VALUES (:TS. Object, ' Trans f ormer_011 ') ; 
RESUME NEXT; 

ENDIF; 

IF TS.Windingl = TS.Winding2 OR 
TS.Windingl = TS.Winding3 OR 
TS.Winding2 = TS.Winding3 THEN 
INSERT INTO GrassCatcher (Object, Problem) 

VALUES (:TS. Object, ' Trans forme r_0 12 ') ; 
RESUME NEXT; 
ENDIF; 

/* 

** Figure out the MVA correction 

V 

i = 1; 

NameplateMVA = 0; 

WHILE i <= W.LastRowO DO 

IF W[i] .RatedMVA > NameplateMVA THEN 

NameplateMVA = W[i] .RatedMVA; 
ENDIF; 

i s i + 1; 
ENDWHILE; 

IF NameplateMVA = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (:TS. Object, ' Trans formerj) 13 ') ; 

RESUME NEXT; 
ENDIF; 

/* 

** Do a sanity check on the measurements 

V 

IF TS.Z1_1 2 < 3.0 OR TS.Z1_1_2 > 15.0 OR 
TS.Z1 2_3 < 3.0 OR TS.Z1_2_3 > 15.0 OR 
TS.zO_l < 3.0 OR TS.Z1_3_1 > 15.0 THEN 
INSERT INTO GrassCatcher (Object, Problem) 
VALUES ( :TS. Object, ' Trans former J) 14 ' ) ; 

ENDIF; 

/* 

•* Figure out the voltage correction for each winding 

V 

KVCorrection = (TS.TapStepl - W [TS.Windingl] .NeutralStep) * 

IFNULL(W [TS.Windingl] .StepSize, 0/0) ; 
NameplateKV = W[ TS.Windingl] .NeutralKV + KVCorrection; 
CF1 = ((NameplateKV / W[TS .Windingl) .NominalKV) ** 2) * 

(SP.MVABase / NameplateMVA); 

KVCorrection = (TS.TapStep2 - W[TS .Winding2) .NeutralStep) * 

IFNULL(W[TS.Winding2] .StepSize, 0.0) ; 
NameplateKV = W[TS.Winding2) .NeutralKV + KVCorrection; 
CF2 = ((NameplateKV / W[TS.Winding2] .NominalKV) ** 2) * 

(SP.MVABase / NameplateMVA); 
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Calculate the per-winding impedances etc 

IF TS.Winding3 = 0 AND 

TS.Z1_1_2 IS NOT NULL THEN 

TS.Z1 1 = 0.5 * TS.Z1_1_2 * CF1; 

TS.Z1~2 = 0.5 * TS.Z1_1_2 * CF2 ; 

TS.RO = IFNULL(0.5 * TS.R1_1_2, 0,0) * CF1; 

TS.R1_2 = IFNULL (0.5 * TS.R1_1_2, 0.0) * CF2 ; 



IF TS.Z0_1 2 IS NOT NULL THEN 

TS.Z0_T = 0.5 * TS.Z0_1_2 * CF1; 

0.5 * TS.Z0_1_2 * CF2; 
IFNULL(0.5 * TS.R0.1_2 * CF1, 0.0); 
IFNULH0.5 * TS.R0.1_2 * CF2 , 0.0); 



TS.Z0_2 
TS.R0_1 
TS.RO 2 
ENDIF; 



TS.X1_1 
TS.X1.2 

TS.X0_1 
TS.X0_2 



( (TS.Z1.1 ** 

<(TS.Z1_2 ** 

( (TS.Z0JL ** 

{ (TS.Z0_2 ** 



2) - (TS.R1_1 **2) ) ** 0.5; 

2) - (TS.R1_2 **2)) ** 0.5; 

2) - (TS.R0_1 **2) ) ** 0.5; 

2) - (TS.R0_2 **2) ) ** 0.5; 



ELSEIF TS.Zl.l 2 IS NOT NULL AND 
TS.ZljO IS NOT NULL AND 
TS.Z1_2_3 IS NOT NULL THEN 

KVCorrection = {TS.TapStep3 - W[TS . Winding3] .NeutralStep) ' 

IFNULL(W[TS.Winding3] .StepSize, 0.0); 
NameplateKV = W[TS .Winding3] .NeutralKV + KVCorrection; 
CF3 = {(NameplateKV / W[TS .Winding3 ] .Nomina 1KV) ** 2) * 

(SP.MVABase / NameplateMVA) ; 

TS.Z1 1 = 0.5 * (TS.Z1_1_2 + TS.Z1.3_1 - TS.Z1_2_3) * CF1; 

TS.Z1_2 = 0.5 * (TS.Z1_2_3 + TS.Z1_1_2 - TS.Z1_3_1) * CF2 ; 

TS.Z1 3 = 0.5 * (TS.Z1_3_1 + TS.Z1_2_3 - TS.Z1_1_2) * CF3 ; 

TS.RO = IFNULL(0.5 * (TS.R1_1_2 + TS.R1_3_1 - TS.R1_2_3) 

TS.R1 2 = IFNULL(0.5 * (TS.R1_2_3 + TS.R1_1_2 - TS.R1_3_1) 

TS.R1~3 = IFNULL(0.5 • (TS.R1_3_1 .+ TS.R1_2_3 - TS.R1_1_2) 



CF1, 
CF2 , 
CF3 , 



IF TS.ZO 1 2 IS NOT NULL OR 
TS.Z0_3_1 IS NOT NULL OR 
TS.Z0_2_3 IS NOT NULL THEN 
TS.Z0_1 = 0.5 * (TS.Z0_1_2 
0.5 * (TS.Z0_2_3 
0.5 * (TS.Z0_3_1 
IFNULL(0.5 
IFNULL (0.5 



TS.Z0_2 
TS.Z0_3 
TS.R0_1 
TS.R0_2 
TS.R0_3 
ENDIF; 



+ TS.Z0_3_1 - TS.Z0_2_3) * CF1 
+ TS.Z0_1 2 - TS.Z0_3_1) * CF2 
+ TS.Z0.2 3 - TS.Z0_1_2) * CF3 
(TS.R0_1 2 + TS.R0_3_1 - TS.R0_2_3) 
(TS.R0_2_3 + TS.R0_1_2 - TS.R0_3_1) 



Cr 
Cr 



= IFNULL (0.5 * (TS.R0_3_1 + TS.R0_2_3 - TS.R0_1_2) * Cri 



TS.X1_1 
TS.X1_2 
TS.X1_3 

TS.X0_1 
TS.X0_2 
TS.X0_3 



( (TS.Z1_1 
( (TS.Z1.2 
( (TS.Z1_3 



( (TS.Z0_2 
( (TS.Z0_3 



* * 


2) • 


- (TS.R1_1 


* * 


2)) 


* * 


0 


.5 


* * 


2) - 


- (TS.R1.2 


* * 


2)) 


* * 


0 


.5 


* * 


2) • 


- (TS.R1_3 


* • 


2)) 


* * 


0 


.5 


* • 


2) - 


- (TS.R0_1 




2)) 


» * 


0 


.5 


* * 


2) • 


- (TS.R0_2 


* # 


2)) 




0 


.5 


• * 


2) - 


- (TS.R0_3 


* * 


2)) 




0 


.5 



Give the reactance the sign of the impedance 

IF TS.Z1JL < 0 THEN 

TS.X1_1 = - TS.X1_1; 
ENDIF; 



IF TS.Z1_2 < 0 THEN 
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TS.X1_2 * - TS.X1_2; 
ENDIF; 

IF TS.Z1.3 < 0 THEN 

TS.X1_3 = - TS.X1.3; 
ENDIF; 

IF TS.Z0_1 < 0 THEN 

TS.X0_1 = - TS.X0.1; 
ENDIF; 

IF TS.Z0_2 < 0 THEN 

TS.X0_2 = - TS.X0_2; 
ENDIF; 

IF TS.ZO_3 < 0 THEN 

TS.X0J3 = - TS.X0_3; 
ENDIF; 

ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. - 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame: 



PowerSystemModel 
Connec t i vi ty Edi t or 



INITIALIZE 

( 



T Row = INTEGER ; /* 

C Row = INTEGER; /• 

Choiceltem = INTEGER; /• 

FrameName = VARCHAR{20) NOT NULL; /• 

i = INTEGER NOT NULL; /* 

dummy = INTEGER; /* 
) = 

BEGIN 

CurFrame.SendUserEvent (EventName = 'Close') 

END; 



Row number */ 
Row number */ 
Choice item in list 1 
Editor frame name */ 
Scratch integer */ 
Scratch integer */ 
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ON ChildPrcperties D1.T[*].C = 
BEGIN 

CALLPROC ObjectEditor (OS = D1.T[].C[)>; 

END; 

ON ChildDetails D1.T[*J.C = 
BEGIN 

CurFrame . SendUserEvent ( EventName = ' LoadOb j ec t_Dl ' , 

Messagelnteger = Dl .T[ ] .C [] .Object) ; 

END; 

ON UserEvent ' LoadOb j ect_Dl ' = 
BEGIN 

CurFrame. WindowVisibility = WV_Visible; 

/* 

* Get a desription of the object 

*/ 

REPEATED 



SELECT 



FROM 
WHERE 



Dl.O. Object » 0. Object, 
Dl.O.Baseiype = O.Baseiype, 
Dl.O. Type = O.Type, 

Dl.O.PrimaryGrouping = O.PrimaryGrouping, 

Dl.O. Name = O.Name, 

Dl .O.TypeName = O.TypeName, 

Dl . 0 , PrimaryGroupingName = 0 . Prima ryGroupingName , 
dummy = :i 
Object 0 

: CurFrame. Messagelnteger = 0. Object? 



Get the terminals for the object 

Dl.T.ClearO ; 
T_Row = 1; 

REPEATED 

SELECT :Dl.T(T_Row] .Object = T. Object, 

:D1 .T(T_Row] .Terminal = T. Terminal, 
:Dl.T[T_Row) .Node = T.Node, 
:Dl.T[T_Row] .KVLevel = T.KVLevel, 
: dummy = :i 

FROM Terminal T 

WHERE :D1.0. Object = T. Object 

BEGIN 

FIELD (Dl.T[T_Row] .Terminal) .IsReverse = FALSE; 

Load up all the things connected to this terminal 

Dl.T[T_Row] . C. Clear 0 ; 
C_Row = 1; 



REPEATED 



SELECT 



FROM 
WHERE 



Dl.T[T_Row] 
Dl.T[T_Row] 
Dl.T[T_Row] 
Dl.T[T_Row] 
Dl.T[T_Row] 
Dl.T[T_Row] 
Dl.T(T_Row] 
dummy = : i 
Terminal T, 
Object 0 
:Dl.T[T_Row) 
:Dl.T[T_Row] 
:Dl.T[T_Row] 
T. Object = 0 



C[C_Row] .Object = 0. Object, 
C[C_Row] .Baseiype = O.BaseType, 
C[C_Rowj .Type = O.Type, 

C[C_Row] . PrimaryGrouping = O.PrimaryGrouping, 
C(C_Row] .TypeName = O.TypeName, 
C[C_Row] .Name = O.Name, 

C[C_Rowj .PrimaryGroupingName = 0. PrimaryGroup: 



Node != :Node$Floacing AND 
Node = T.Node AND 
Object != T. Object AND 
Object 
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BEGIN 

C_Row = C_Row + 1; 

END; 

T_Row = T_Row + 1; 

END; 

ROLLBACK; 

END; 
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ON ChildProperties D2.T[*].C = 
BEGIN 

CALLPROC ObjectEditor {OS = D2.T[].C[]); 

END; 

ON ChildDetails D2.T[*].C = 
BEGIN 

CurFrame . SendUserEvent ( EventName = ' LoadObj ect_D2 ' , 

Messagelnteger = D2 ,T[ ] .C [] .Object) ; 

END; 

ON UserEvent ' LoadObj ect_D2 ' = 
BEGIN 

Cur Frame. WindowVisibility = WV_Visible; 

/* 

Get a desription of the object 



REPEATED 
SELECT 



FROM 
WHERE 



D2.0. Object * 0. Object, 
D2.0.BaseType = O.BaseType, 
D2.0.Type = O.Type, 

D2.0. Primary-Grouping = 0. PrimaryGrouping, 
D2.0.Name = O.Name, 
D2.0.TypeName = O.TypeName, 

D2 .O.PrimaryGroupingName = O.PrimaryGroupingName, 
dummy = : i 
Object O 

:CurFrame. Messagelnteger = 0. Object; 



Get the terminals for the object 

D2.T. Clear {) ; 
T_Row = 1; 

RE PE ATED 

SELECT :D2 .T[T_Row] .Object = T. Object, 

D2.T[T Row) .Terminal = T. Terminal, 
D2.T[tIrow] .Node = T.Node, 
D2.T[T_Row] .KVLevel = T.KVLevel, 
dummy = :i 
FROM Terminal T 
WHERE :D2.0. Object = T. Object 
BEGIN 

FIELD (D2.T[T_Row) .Terminal) .IsReverse = FALSE; 

Load up all the things connected to this terminal 

D2.T(T_Row] .C.Clear 0 ; 
C_Row = 1; 



REPEATED 



SELECT 



FROM 
WHERE 



D2.T[T_Row] 
D2 .T[T_Row] 
D2.T[T_Row) 
D2.T[T_Row] 
D2.T[T_Row] 
D2.T[T_Row] 
D2.T[T_Row] 
.dumrny = :i 
Terminal T, 
Object O 
:D2 .T[T_Row] 
:D2.T[T_Row] 
TfT Rnwl 



C(C_Row] .Object = O. Object, 
C[C_Row] .BaseType = O.Baseiype, 
C[C_Row] .Type = O.Type, 

C(C_Rowj .PrimaryGrouping = 0. PrimaryGrouping, 
C[C_Rowj .TypeName = O.TypeName, 
C [cIrow] .Name = O.Name, 

C[C_Rowj . PrimaryGroupingName = 0. PrimaryGroup 



Node != :Node$Floating AND 
Node = T.Node AND 
Obiect != T.Obiect AND 
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T. Object = O. Object 



BEGIN 

C_Row = C_Row + 1; 

END; 

T_Row = T_Row + 1; 

END; 

ROLLBACK; 

END; 
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ON Click Disconnect = 
BEGIN 

IF FIELD (Dl.T) .CurrentRow = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES ( :D1.0. Object, 'Object_008 ' ) ; 

ROLLBACK; 

RESUME; 
ENDIF; 

IF FIELD (D2.T) .CurrentRow = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 

VALUES ( :D1.0. Object, 'Object_009 ' ) ; 
ROLLBACK- 
RESUME; 

ENDIF; 

/* 

* If both the terminals are already connected to the same node, 

* then assume that the user wishes to break them away from that 

* node. If the user is trying to connect to a disconnected terminal, 

* assume that they mean it. Create a new node, and assign the terminal 

* "to connect to* to the new node. 
V 

IF Dl.TU.Node = D2.T[].Node OR 
Dl.TU.Node = NodeSFloating THEN 
UPDATE LastKey 
SET Value = Value + 1 
WHERE LastKey = 'Node'; 

SELECT : Dl.TU.Node = Value 

FROM LastKey 

WHERE LastKey = 'Node'; 

UPDATE Terminal 
SET Node = :Dl.T[].Node 
WHERE Object = :D1. T(] .Object AND 
Terminal = :D1.T[] .Terminal; 

ENDIF; 

/* 

* Connect the terminals by copying the "to connect to" terminal's node 

* to the "to be connected" terminal's node. 
V 

REPEATED 
UPDATE Terminal 
SET Node = :D1.T[] .Node 
WHERE Object = :D2 .T[ ] .Object AND 
Terminal = :D2 .T[] .Terminal; 

COMMIT; 

CurFrame.SendUserEvent (EventName = 'LoadObject_Dl' , 

Messagelnteger = Dl .0. Object ) ; 

CurFrame . SendUserEvent ( EventName = ' LoadOb j ect_D2 ' , 

Messagelnteger = D2 .0. Object ) ; 

END; 
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ON Click D2_Connect = 
BEGIN 

IF FIELD (D2. T) .CurrentRow = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES ( :D2.0. Object, 'Object_008 ' ) ; 

ROLLBACK ; 

RESUME; 
ENDIF; 

. IF FIELD (Dl.T) .CurrentRow = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 

VALUES ( :D2.0. Object, ' Object J)09 ' ) ; 
ROLLBACK; 
RESUME; 
ENDIF; 

* If both the terminals are already connected to the same node, 

* then assume that the user wishes to break them away from that 

* node. If the user is trying to connect to a disconnected terminal, 

* assume that they mean it. Create a new node, and assign the terminal 

* "to connect to" to the new node. 

IF D2.T[].Node = Dl.T [J .Node OR 

D2.T[].Node = Node$Floating THEN 
UPDATE LastKey 
SET Value = Value + 1 
WHERE LastKey = 'Node'; 

SELECT :D2.T[].Node = Value 

FROM LastKey 

WHERE LastKey = 'Node'; 

UPDATE Terminal 
SET Node = :D2.T[].Node 
WHERE Object = :D2 . T[ ) .Object AND 
Terminal = :D2 .T[] .Terminal; 

ENDIF; 

/* 

* Connect the terminals by copying the "to connect to" terminal's node 

* to the "to be connected" terminal's node. 
V 

REPEATED 
UPDATE Terminal 
SET Node = :D2.T[].Node 
WHERE Object = :D1.T[] .Object AND 
Terminal = :D1.T[] .Terminal; 

COMMIT; 

CurFrame.SendUserEvent (EventName = 'LoadObject_D2 ' , 

Messagelnteger = D2. 0. Object) ; 

CurFrame.SendUserEvent (EventName = 'LoadObject_Dl' , 

Messagelnteger = D1.0. Object ) ; 

END; 
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ON ChildEntry Dl.T = 

BEGIN 

i = 1; 

WHILE i <= Dl.T.LastRowO DO 

FIELD(Dl.T[i] .Terminal) .IsReverse = FALSE; 

i s i + 1; 
END WHILE; 

FIELD (D1.T(] .Terminal) .IsReverse = TRUE; 

END; 

ON ChildEntry D2.T = 

BEGIN 

i = 1; 

WHILE i <= D2.T.LastRow() DO 

FIELD <D2 ,T[i] .Terminal) .IsReverse = FALSE; 

i = i + 1; 
ENDWHILE; 

FIELD (D2.T[] .Terminal) .IsReverse = TRUE; 

END; 
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ON Click Dl_Disconnect = 
BEGIN 

i = FIELD (Dl.T) .CurRow; 

IF i = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 

VALUES ( :D1.0. Object, 'Obj ect_010 ' ) ; 
ROLLBACK- 
RESUME; 

ENDIF; 

UPDATE Terminal T 
SET Node = :Node$Floating 
WHERE :D1.T[] .Object = T. Object AND 
:D1 .T[] .Terminal = T. Terminal? 

COMMIT; 

CurFrame . SendUserEvent ( EventName = ' LoadOb j ect_Dl ' , 

Messagelnteger = Dl. 0. Object) ; 

CurFrame . SendUserEvent ( EventName = ' LoadOb j ect_D2 ' , 

Messagelnteger = D2 .0. Object) ; 

END; 

ON Click D2_Disconnect = 
BEGIN 

i = FIELD (D2.T) .CurRow; 

IF i = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES ( :D2.0. Object, 'Obj ect_010 ' ) ; 

ROLLBACK; 

RESUME; 
ENDIF; 

UPDATE Terminal T 
SET Node = :Node$Floating 
WHERE :D2 .T[] .Object = T. Object AND 
:D2 ,T{ j .Terminal = T. Terminal; 

COMMIT; 

CurFrame . SendUserEvent ( EventName = ' LoadOb j ect_Dl ' , 

Messagelnteger = D1.0. Object) ; 

CurFrame. SendUserEvent (EventName = ' LoadOb j ect_D2 ' , 

Messagelnteger = D2 .0. Object ) ; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52,227-19, as applicable. 



V 

ON UserEvent 'Close', 

ON Click Menu. File. CloseButton = 

BEGIN 

CurFrame.WindowVisibility = WV_Invisible; 

END; 



/ 



Application: 
Frame: 



PowerSystemModel 
Menu . File . CloseButton 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame: 



PowerSystemModel 
FindObject 



This frame can be called to find an object. The types of objects 
that will be presented may be restricted by passing a supertype 
to this frame - only the subtypes of this type will be shown for 
selection. 

The caller frame can also pass its frame identifier, the name of 
a user event and (optionally) an integer. If these are passed, 
then the selections made by the user are communicated to the caller 
by sending user events with the given name and integer and a message 
object of type ObjectSummaryClass . If the caller frame does not 
pass the frame identifier and event name, this frame returns with 
the user selection in an ObjectSummaryClass. 



INITIALIZE 

( 



SuperType = INTEGER NOT NULL; 
CallerFrame = FrameExec; 
CallerEvent = VARCHAR(32); 
Callerlnteger = INTEGER; 
i = INTEGER NOT NULL; 
Type = lypeClass; 
FOJTitle = VARCHAR(32) 
F_G roup i ngName_Pa 1 1 e rn 
F_ObjectName_Pattern = 
) = 

BEGIN 



NOT NULL; 
= VARCHAR(22) 
VARCHAR{22) ; 



/* Passed super type for menu 

/* Passed calling frame */ 

/* Passed return event to cal 

/* Passed info for caller */ 

/* Scratch integer */ 

/* Scratch type */ 

/* Title for FO table field * 

/* Pattern for filter name */ 

/* Pattern for filter name V 



Set up a list of all the types for the user to use as a filter 

FIELD ( F_iype ) .ValueList .Choicel terns. Clear 0 ; 
i = 1; 

IF SuperType = 0 THEN 

F_Type = iype$Object; 

ELSE 

FJType = SuperType; 
ENDIF; 

REPEATED 

SELECT :Type.Type = T.Type, 

: Type. Name = T.Name 
FROM Type T, 

ExtendedType ET 
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WHERE :F_Type = ET.SuperType AND 
ET .Type = T.Type AND 

T.BaseType != 0 /* Ignore "for classification only" 

ORDER BY Name 
BEGIN 

FIELD (F Type) .ValueList .Choiceltems [i] .EnumText = Type. Name; 
FIELD (Fliype) .ValueList .Choiceltems (ij .EnumValue = Type. Type; 
i * i + 1; 

END; 

ROLLBACK; 

Save the original title of the table field 
FOJTitle = FIELD(FO) .Title; 
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ON Click Lookup = 
* 

V 

BEGIN 

FIELD (FO) .Title = FOJTitle; 
FO.ClearO ; 
i = 1; 

/* 

* Set up the pattern for the GroupingName match based on the selection. 
V 

IF F_GroupWild = 0 THEN 

F_GroupingName_Pattern = F_GroupingName; 
ELSEIF F_GroupWild = 1 THEN 

F_GroupingName_Pattern = '%' + F_G'roupingName + '%'; 
ELSEIF FJSroupWild = 2 THEN 

F GroupingName_Pattern = F_GroupingName + '%'; 
ELSEIF FJSroupWild = 3 THEN 

F_GroupingName_Pattern = '%' + F_GroupingName ; 
ENDIF; 

/* 

* Set up the pattern for the ObjectName match based on the selection. 
V 

IF F_ObjectWild =* 0 THEN 

F_ObjectName_Pattern = FJDbjectName; 
ELSEIF F_ObjectWild = 1 THEN 

F_ObjectName_Pattern = '%' + FJDbjectName' + '%'; 
ELSEIF F_ObjectWild = 2 THEN 

F_ObjectName_Pattern = FJDbjectName + '%'; 
ELSEIF F_ObjectWild = 3 THEN 

FJDbjectName_Pattern = '%' + FJDb j ectName ; 
ENDIF; 

RE PE ATED 

SELECT :FO[i] .Object = 0. Object, 

:FO(i] .BaseType = O.Baseiype, 
:FO[i] .Type = O.Type, 

: FO [ i } .PrimaryGrouping = 0. Prima ryGrouping, 
: FO [ i j . TVpeName = O.iypeName, . 
:FO[i] .Name = O.Name, 

:FO[i] .PrimaryGroupingName = 0. PrimaryGroupingName 
FROM Object 0 

WHERE 0. PrimaryGroupingName LIKE :F_GroupingName_Pattern AND 
O.Name LIKE :F_ObjectName_Pattern AND 
O.Type IN 
( 

SELECT ET.Type 

FROM ExtendedType ET 

WHERE :F_Type = ET.SuperType 

) 

ORDER BY 

PrimaryGroupingName , 

TypeName, 

Name 

BEGIN 

i b i + 1; 

END; 

FIELD (FO) .Title = VARCHAR ( i - 1) + ' ' + FOJTitle; 
ROLLBACK; 

END; 
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ON Click Apply_Button = 
/* 

* Pass the selected object (if any) back to the caller 

V 

BEGIN 

IF FIELD (FO) .Act iveRow != 0 THEN 

IF CallerEvent = ' ' THEN 
RETURN FO[] ; 

ELSE 

CallerFrane.SendUserEvent (EventName = CallerEvent 

,MessageObject = FO[] .Duplicate ( ) 
,MessageInteger = Callerlnteger 
>; 

ENDIF; 
ENDIF; 

END; 

ON Click Cancel_Button = 
/* 

* Done for now 
*/ 

BEGIN 

RETURN NULL; 

END; 

ON ChildProperties FO = 
V* 

* Edit the selected object 
V 

• BEGIN 

IF FIELD (FO) .Act iveRow != 0 THEN 

CALLPROC ObjectEditor (OS = FO[]); 
ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame: 



Power SystemModel 
GrassCatcher 



INITIALIZE 



i = INTEGER NOT ' NULL ; 
SGC = GrassCatcherClass; 



/* Scratch integer */ 

/* Scratch grass catcher V 



BEGIN 
i 



1; 



SELECT 



FROM 



WHERE 
ORDER BY' 



GC[i] .Object = GC. Object, 
GC[i] .Problem = GC. Problem, 
GC[i].Text = GC.Text, 
GC[i] .0. Object = O.Object, 
GC[i] .O.Baseiype = O.BaseType, 
GC[i].O.Type = 0.iype, 

GC[i] .O.PrimaryGrouping = 0. PrimaryGrouping, 
GC[i] .O.TypeName = O.TypeName, 
GCtij.O.Name = O.Name, 

GC [ i ] . 0 . PrimaryGroupingName = O . PrimaryGroupingName , 
GC[i] .P. Problem = P. Problem, 
GC[i] .P. Severity = P. Severity, 
GC[i] .P. Description = Prescription 
GrassCatcher GC, 
Object O, 
Problem P 

GC. Object = O.Object AND 
GC. Problem = P. Problem 



BEGIN 
i 

END; 



PrimaryGroupingName, 

TypeName, 

Name 



i + 1; 



END; 



ROLLBACK; 
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ON DeleteRow GC = 
/* 

* Wipe out all matching entries 
V 

BEGIN 

IF FIELD{GC) .ActiveRow != 0 THEN 
SGC = GC[ J .Duplicate!) ; 

DELETE FROM GrassCatcher GC 
WHERE : SGC. Object = GC. Object AND 
: SGC. Problem = GC. Problem; 

i = GC.LastRowf ) ; 

WHILE i > 0 DO 

IF GC[i] .Object = SGC. Object AND 
GC[i] .Problem = SGC. Problem THEN 
GC.RemoveRow (RowNumber = i); 
ENDIF; 

i = i - 1; 
ENDWHILE; 

COMMIT; 
ENDIF; 

END; 

ON ClearTable GC = 
/• 

* Nuke the whole schmeer; throw in a quick MODIFY to reclaim space 
*/ 

BEGIN 

DELETE FROM GrassCatcher; 
MODIFY GrassCatcher TO Btree 
ON Object, Problem; 

GC. Clear () ; 

COMMIT; 

END; 

ON ChildProperties GC = 
/* 

Edit the selected object 

*/ 

BEGIN 

IF FIELD (GC) .ActiveRow != 0 THEN 

CALLPROC ObjectEditor (OS = GC[].0); 
ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States, 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 

** Application: PowerSystemModel 

** Frame: GroupingSelection 

*/ 

INITIALIZE 

i = INTEGER; /* Scratch integer */ 

MenuEntry = Choiceltem; /* Scratch menu entry */ 

FrameName = VARCHAR(20) NOT NULL; /* Editor frame name */ 

Object Summary = ObjectSummaryClass ; /* Object summary */ 

) = 

BEGIN 

/* 

* Set up the top level "grouping" and load up its members 
*/ 

GH. Clear () ; 

GH[1] .Object = 0; 

GH[1] .BaseTVpe = 0; 

GH [ 1 ] . Type = 0 ; 

GH[1] . PrimaryGrouping = 0; 

GH[1] .TypeName = 'Object'; 

GH[1] .Name = 'Object' ; 

GH [ 1 ] . PrimaryGroupingName = ' Ob j ect ' ; 

ObjectSummary = GH[1]; 

CurFrame.SendUserEvent (EventName = 'GSLoadData' ) ; 

END; 

ON UserEvent 'GSLoadData' = 
BEGIN 

/* 

* Get the members of the selected group object 
V 

GS. Clear ( ) ; 
i = 1; 

REPEATED 

SELECT :GS[i] .Object = O. Object, 

:GS [i] .BaseType = O-BaseTVP©/ 
:GS[i] .Type = O.Type, 

:GS (i) .PrimaryGrouping = 0. PrimaryGrouping, 
:GS[i) .TypeName = 0. TypeName, 
:GS[i].Name = O.Name, 

: GS [ i ) . PrimaryGroupingName = 0 . PrimaryGroupingName 
FROM Object 0, 
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Grouping G 

WHERE :ObjectSummary .Object = G. Grouping AND 
:Type$Member_of = G .Relationship AND 
G. Member = 0. Object 

ORDER BY 

TypeName, 
Name 

BEGIN 

i = i + 1; 

END; 

ROLLBACK; 

END; 
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ON ChildEntry GH = 



/* 

*/ 



BEGIN 

IF FIELD (GH) .CurRow != 0 THEN 
ObjectSummary = GH [] ; 

Remove the entries lower down the hierarchy 

i = GH .Last Row ( ) ; 

WHILE i > FIELD (GH) .CurRow DO 

GH . RemoveRow ( RowNumber ■ i ) ; 

i . i - 1; 
ENDWHILE; 

CurFrame.SendUserEvent (EventName = 'GSLoadData'); 
ENDIF; 

END; 

ON ChildDetails GS, 
ON Click Members = 

BEGIN 

IF FIELD(GS) .ActiveRow != 0 THEN 
ObjectSummary = GS[]; 



* 



Add the selected row to the end of the heirarchy 

i s GH.LastRowt ) ; 
GH [ i + 1] = GS[] .DuplicateO ; 

CurFrame.SendUserEvent (EventName = 'GSLoadData'); 
ENDIF; 

END; 

ON ChildProperties GS = 
BEGIN 

IF FIELD (GS) .CurRow != 0 THEN 

CALLPROC ObjectEditor (OS = GS[]); 
ENDIF; 

END; 

ON Click Network = 
BEGIN 

IF FIELD (GS) .CurRow 1= 0 THEN t 

GlobalFrame [FrameSConnectivityEditor ] . Frame . SendUserEvent 

(EventName = 'LoadObject.Dl ' , Messagelnteger = GS[] .Object) ; 

ENDIF; 

END; 

ON Details Network = 
BEGIN 

IF FIELD (GS) .CurRow != 0 THEN m 

GlobalFrame [ FrameSConnectivityEditor] . Frame . SendUserEvent 

(EventName = 'LoadObject_D2 ' , Messagelnteger = GS [] .Object ) ; 

ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



** Application: Power SystemModel 

Frame: PSM 

*/ 

INITIALIZE 

( 

) = 

BEGIN 

/* 

** Set up the global variables from the database 

V 

SELECT :SP. Frequency = SP. Frequency, 
:SP.MVABase = SP.MVABase, 
:SP.KVReference * SP.KVReference, 
:SP.LengthRatio = SP .LengthRatio, 
:SP.GroundResistivity = SP.GroundResistivity, 
:S P. Temperature = SP. Temperature 
\ FROM SystemParameters SP; 

Cur Frame. SendUserEvent (EventName = 'StartGlobalFrames'); 
ROLLBACK; 

END; 

ON UserEvent 'StartGlobalFrames' = 
BEGIN 

/* 

* Start up all the global frames that the editors can use. Do this 

* in subscript order so that the array extends correctly. 

V . . 

GlobalFrame[Frame$ConnectivityEditor] .Frame = OPENFRAME ConnectivityE 

END; 

ON ChildClick B = 
BEGIN 

CALLFRAME :CurFrame .Trigger Field .Name ; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 



Application: 
Frame: 



Power Sys t emMode 1 
SetGrouping 



INITIALIZE 



( 

Object = ObjectClass; 

OG = ARRAY OF GroupingClass ; 

Relationship = INTEGER NOT NULL; 

i = INTEGER NOT NULL; 

CList = ChoiceList; 

Type = TypeClass; 

OS = ObjectSummaryClass; 

) = 

BEGIN 



/* Object being edited */ 

/* Passed groupings */ 

/* Relationship being added * 

/* Scratch integer */ 

/* Scratch choice list entry 

/* Scratch type V 

/* Scratch Object summary V 



Show the object being worked on 

LO. Object = Object .Object ; 
LO.BaseType = Object .BaseType; 
LO.Type = Ob j ect. Type; 

LO. PrimaryGrouping s Object. PrimaryGrouping; 
LO.TypeName = Ob j ect . TypeName ; 
LO.Name = Object. Name; 

LO.PrimaryGroupingName = Ob j ect . PrimaryGroupingName ; 

Load up the relationship (interaction) list 

CALLPROC LoadTypeList 

(EF = EnumFi eld (FIELD (MG [* ] .Relationship) .ProtoField) 
,StartType = TypeSInteraction 

) ; 

Get the names for the grouping objects and set the 
primary grouping marker 



MG = OG.DuplicateO ; 
i = 1; 

WHILE i <= MG.LastRowO 
REPEATED 
SELECT 



DO 



MG[i] .GO. Object = GO. Object, 
MG[i] .GO. BaseType = GO. BaseType, 
MG[i] .GO. Type = GO. Type, 

MG(i] .GO. PrimaryGrouping = GO. PrimaryGrouping, 
MG ( i j . GO . TypeName = GO. TypeName, 
MG [ i ] . GO . Name = GO. Name, 

MG[i] .GO. PrimaryGroupingName = GO. PrimaryGroupingName 
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FROM Object GO 

WHERE :MG[i] .Grouping = GO. Object; 

IF MG[i] .Grouping = Object . PrimaryGrouping THEN 
MG[i] .Primary = 1; 

ELSE 

MG[i] . Primary = 0 ; 
ENDIF; 

FIELD (MG[i] .Primary) .HasDataChanged = FALSE; 
i = i + 1; 
£:JDWHILE; 

ROLLBACK; 

END; 
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On Click Menu. Grouping. Member_of = 
BEGIN 

OPENFRAME FindObject 

(SuperType = TypeSObject 

,CallerFrame = CurFrame 

,CallerEvent = ' AddSelection' 

,CallerInteger = Type$Member_of 

) WITH . , . 

WindowTitle = MenuButton (CurFrame. OnginatorField) .TextLabel; 

END; 

On Click Menu. Grouping. Made_by = 
BEGIN 

OPENFRAME FindObject 

{ SuperType = Type$Manuf acturer 
,CallerFrame = CurFrame 
,CallerEvent = 'AddSelection' 
,CallerInteger = Type$Made_by 
} WITH 

WindowTitle = MenuButton (CurFrame. OriginatorField) .TextLabel ; 

END; 

On Click Menu. Grouping. Shown_on = 
BEGIN 

OPENFRAME FindObject 

(SuperType = TypeSDrawing 
,CallerFrame = CurFrame 
,CallerEvent = 'AddSelection' 
,CallerInteger = iype$Shown_on 
) WITH 

WindowTitle = MenuButton (CurFrame. OriginatorField) .TextLabel ; 

END; 

On Click Menu. Load. Load_modeled_by = 
BEGIN 

OPENFRAME FindObject 

(SuperType = TypeSConsumer 
,CallerFrame = CurFrame 
,CallerEvent = 'AddSelection' 
,CallerInteger = Type$Load_modeled_by 
) WITH 

WindowTitle = MenuButton (CurFrame. OriginatorField) .TextLabel; 

END; 

On Click Menu. Load. Load_f ami ly = 
BEGIN 

OPENFRAME FindObject 

(SuperType = Type$LoadFamily 
f CallerFrame = CurFrame 
,CallerEvent = 'AddSelection' 
,CallerInteger = Type$Load_modeled_by 
) WITH 

WindowTitle = MenuButton (CurFrame. OriginatorField) .TextLabel; 

END; 

On Click Menu. Load. Self = 

BEGIN • , t 

CurFrame. SendUserEvent (EventName = 'AddSelection' 

,MessageObject = LO 

,MessageInteger = Type$Load_modeled_by 

); 

END; 

On Click Menu. Rat ing.Rated_as = 
BEGIN 
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OPENFRAME FindObject 

(SuperType = LO.BaseType 
,CallerFrame = CurFrame 
,CallerEvent = 'AddSelection' 
,CallerInteger = Type$Rated_as 
) WITH 

WindowTitie = MenuBut ton (CurFrame. OriginatorField) .TextLabel; 

END; 

On Click Menu. Rating. Rating_f ami ly = 
BEGIN 

OPENFRAME FindObject 

(SuperType = Type$RatingFamily 
, CallerFrame = CurFrame 
,CallerEvent = 'AddSelection' 
,CallerInteger = Type$Rated_as 
) WITH 

WindowTitie = MenuButton (CurFrame. OriginatorField) .TextLabel ; 

END; 

On Click Menu. Rating. Self = 
BEGIN 

CurFrame. SendUserEvent (EventName = 'AddSelection' 

,MessageObject = LO 
,MessageInteger = Type$Rated_as 

); 

END; 

On Click Menu. Locat ion. Located_with = 
BEGIN 

OPENFRAME FindObject 

(SuperType = TypeSObject 

, CallerFrame = CurFrame 

, CallerEvent = 'AddSelection' 

,CallerInteger = Type$Located_with 

) WITH 

WindowTitie = MenuButton (CurFrame. OriginatorField) .TextLabel; 

END; 

On Click Menu. Location. Self = 
BEGIN 

CurFrame. SendUserEvent (EventName = 'AddSelection' 

,MessageObject = LO 
,MessageInteger = Type$Located_with 
); 

END; 
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ON UserEvent ' AddSelection ' = 
/* 

Add the selection to the members' group list 

V 

BEGIN 

OS = ObjectSummaryClass (CurFrame.MessageObject) ; 
Relationship = CurFrame.Messagelnteger; 
i = 1; 

WHILE i <= MG . Last Row ( ) DO 

IF MG[i) .Grouping = OS. Object AND 

MG[i] .Relationship = Relationship THEN 
INSERT INTO GrassCatcher (Object, Problem) 

VALUES (OS. Object, 'Object_011 ' ) ; 
ROLLBACK; 
RESUME; 
ENDIF; 

i = i + 1; 
ENDWHILE; 

MG[i] .Primary = 0; 

FIELD (MG[i] .Primary) .HasDataChanged = FALSE; 

MG[i].GO = OS. Duplicate () ; 

MG[ij .Grouping = OS. Object ; 

MG[ij . Group ingType = OS. Type; 

MG[i) .Relationship = Relationship; 

MG [ i) .Reference = ' * ; 

END; 
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ON Chi IdSet Value MG ( * ] .Primary = 
/ • 

If this is being set, ensure it is the only one; set the active 
row to the one being selected. 

V 

BEGIN 

i = 1; 

WHILE i <= MG. Last Row ( ) DO 

IF FIELD (MG[i] .Primary) .HasDataChanged = TRUE THEN 
FIELD (MG) .Act iveRow = i; 

ELSE 

MG (i ] .Primary = 0; 
ENDIF; 

FIELD (MG[i] .Primary) .HasDataChanged = FALSE ; 

i s i + 1; 
ENDWHILE; 

END; 

ON ChildProperties MG = 
/♦ 

* Edit the selected object 
V 

BEGIN 

IF FIELD (MG) .ActiveRow != 0 THEN 

CALLPROC ObjectEditor (OS = MG[).GO); 
ENDIF; 

END; 

ON ChildDetails MG = 
/* 

♦ Show the details of the association 
•/ 

BEGIN 

IF FIELD (MG) .ActiveRow i= 0 THEN 

IF MG[] .Relationship = Type$Member_of THEN 

/♦ No details to show */ 
ELSEIF MG[] .Relationship = iype$Made_by THEN 

/♦No details to show */ 
ELSEIF MG{] .Relationship = Type$Shown_on THEN 

/♦No details to show ♦/ 
ELSEIF MG[] .Relationship = Type$Load_modeled_by THEN 

CALLFRAME SetLoadCurve (Object = MG [] .Grouping) ; 
ELSEIF MGU .Relationship = Type$Rated_as THEN 

CALLFRAME SetRating (Object = WG [] .Grouping) ; 
ELSEIF MG [ ] .Relationship = Type$Located_with THEN 

CALLFRAME SetLocation (Object = MG [] .Grouping) ; 
ENDIF; 

ENDIF; 

END; 
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ON Click Apply_Button » 
/ * 

* Ensure that the objects' primary group is set correctly and 

* pass back the modified list 
*/ 

BEGIN 

Object . PrimaryGrouping = 0; 
Object .PrimaryGroupingName = ''; 

i = 1; 

OG. Clear ( ) ; 

WHILE i <= MG.LastRowO DO 

IF MG[i] .Primary = 1 THEN 

Object. PrimaryGrouping = MG [i] .Grouping; 

Object. PrimaryGroupingName = MG(i] .GO. Name; 
ENDIF; 

OG[i] = MG [i ] .Duplicate () ; 
i = i + 1; 
ENDWHILE; 

RETURN; 

END; 

ON Click Cancel_Button = 
BEGIN 

RETURN; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 

/* 

* Application: PowerSystemModel 

* Frame: SetKVLevel 

V 

INITIALIZE 

( 

kVLevel = FLOAT NOT NULL; /* Passed kVLevel V 

Voltage = ARRAY OF FloatObject; /* Defined voltages */ 

i = INTEGER NOT NULL; /* Scratch integer */ 

) = 

BEGIN 

/• 

Set up a list of all the kVLevels 

FIELD (FJcVLevel) . ValueList .Choicel terns .Clear () ; 
i = 1; 

SELECT :Voltage[i] .Value = kV. kVLevel 
FROM kVLevel kV 
ORDER BY Value 
BEGIN 

FIELD (F kVLevel) .ValueList. Choicel terns (i] .EnumText = 

VARCHAR (Voltage[i] .Value) ; 
FIELD (F_kVLevel) .ValueList .Choicel terns [i] .EnumValue = i; 

IF Voltage [i] .Value = kVLevel THEN 

F_kVLevel = i; 
ENDIF; 

i s i + 1; 

END; 

ROLLBACK; 

END; 
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ON Click Apply_Button = 
/* 

Pass the selected voltage level back to the caller 

V 

BEGIN 

RETURN Voltage [FJcVLevel] .Value? 

END; 

ON Click Cancel_Button = 
/* 

* Pass the original voltage level back to the caller 

•/ 

BEGIN 

RETURN kVLevel; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



* Application: PowerSystemModel 

* Frame: SetLoadCurve 

V 

INITIALIZE 

{ 

Object = INTEGER NOT NULL; /* Passed object */ 

i = INTEGER NOT NULL; /* Scratch integer */ 

Season » ObjectSummaryClass; /* Scratch season */ 

DayType = ObjectSummaryClass; /* Scratch day type */ 

CList = ChoiceList; /* Reference to choice list 



BEGIN 



Set up the Season list 

CList - EnumField(FIELD(LC[*] .Season) .ProtoField) .ValueList ; 

CList. Choiceltems. Clear () ; 

CList. Choiceltems [1] .EnumValue = 0; 

CList. Choiceltems [1] .EnumText = "; 

i = 2; 

REPEATED 

SELECT : Season. Object = S. Object, 

: Season. Name = S.Name 
FROM Object S 
WHERE :Type$Season = S.Type 
ORDER BY Name 
BEGIN 

CList .Choiceltems [i] .EnumValue = Season. Object ; 
CList .Choiceltems [ij .EnumText = Season. Name; 
i = i + 1; 

END; 

EnumField (FIELD (LC [ * ] .Season) .ProtoField) .UpdChoiceList { ) ; 
Set up the DayType list 

CList = EnumField ( FIELD (LC[*] .DayType) .ProtoField) .ValueList; 

CList. Choiceltems. Clear 0 ; 

CList .Choiceltems [1] .EnumValue = 0; 

CList .Choiceltems [1] .EnumText = "; 

i = 2; 

REPEATED 

SELECT : DayType. Object = DT. Object, 
: DayType . Name = DT.Name 
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FROM Object DT 

WHERE :Type$DayType = DT.Type 

ORDER BY Name 

BEGIN 

CList.Choiceltems(i) .EnumValue = DayType. Object ; 
CList .Choiceltems [i] .EnumText = DayType .Name; 
i = i + 1; 

END; 

EnumFi eld (FIELD (LC [* ] .DayType) . ProtoField) .UpdChoiceList ( ) ; 

/* 

Load up the load curves from the passed object 

V 

i = 1; 
REPEATED 

SELECT :LC(i] .Object = LC. Object, 

:LC[i] .DayType = LC. DayType, 

:LC(i] .Season = LC. Season, 

:LC[i] .Temperature = LC . Temperature , 

: LC [ i j . LoadCurve = LC.LoadCurve, 

:LC[i] .Source = LC. Source, 

:LC[i] .Interpolate = LC. Interpolate 

FROM LoadCurve LC 

WHERE : Object = LC. Object 

BEGIN 

i s i + 1; 

END; 

ROLLBACK; 

END; 

ON ChildEntry LC = 
/* 

Display the list of values for the load curve 

*/ 

BEGIN 

i = 1; 

REPEATED 

SELECT : LV [ i ]. LoadCurve = LV . LoadCurve , 

:LV[i] .Time = LV.Time, 

:LV[i] .LoadValue = LV.LoadValue 
FROM LoadValue LV 

WHERE :LC{] .LoadCurve = LV. LoadCurve 
BEGIN 

i = i + 1; 

END; 

ROLLBACK; 

END; 

ON ChildProperties LV ■ 

/* 

* Draw a graph of the load values 

V 

BEGIN 

CALLFRAME LoadCurveGraph (LV = LV) ; 

END; 
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INITIALIZE 

LV = ARRAY OF LoadValueClass ; 

Xmax = INTEGER NOT NULL; 
Ymax = INTEGER NOT NULL; 
Xseg = FLOAT NOT NULL; 
Yseg = FLOAT NOT NULL; 
Next Segment = Segment Shape; 

LastX = INTEGER NOT NULL; 
LastY = INTEGER NOT NULL; 
NewX = INTEGER NOT NULL; 
NewY = INTEGER NOT NULL; 

Time = INTEGER NOT NULL; 
i = INTEGER NOT NULL; 

) = 
BEGIN 

Xmax = FIELD ( load_subf orm) .Width ; 
Ymax = FIELD ( load_subf orm) .Height ; 

Xseg = Xmax / 1440.0; /* Minutes per day */ 

Yseg = Ymax / 2.0; /* Load value range */ 

/* calculate the data points and line segments */ 

i=l; 

WHILE i <= LV.LastRowO DO 

Time = DATE_PART ('hours', LV[i] .Time) * 60; 
Time = Time + DATE_PART ('minutes', LV[i].Time); 
NewX = Xseg * Time; 

NewY = Ymax - (Yseg * LV[i] .LoadValue) ; 

IF i > 1 THEN 

NextSegment * SegmentShape. Create ( ) ; 

NextSegment . SetEndPoints ( 

PointlX = lastx, 
PointlY = lasty, 
Point2X = newx, 
Point2Y = newy) ; 

NextSegment. LineWidth = LW_VERYTHIN ; 

Next Segment. LineColor = CC_LIGHT_BLUE ; 

NextSegment . ParentFIELD = FIELD ( load_sub£ orm) ; 
ENDIF; 

LastX = NewX; 
LastY = NewY; 
i = i ♦ 1; 
ENDWHILE; 



END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame: 



PowerSystemModel 
SetLocation 



INITIALIZE 

{ 



Object = INTEGER; 

i = INTEGER NOT NULL; 

) = 

BEGIN 

Build the list of co-located objects 



/* Passed object V 
/* Scratch integer */ 



CO. Clear {) ; 
i = 1; 



REPEATED 
SELECT 



FROM 
WHERE 



BEGIN 

i 

END; 



CO[i] .Object = CO. Object, 
CO[i] .BaseType = CO. BaseType, 
C0[i).Type = CO. Type, 

CO(i] . PrimaryGrouping - CO.PrimaryGrouping, 

CO[i] .Name = CO. Name, 

CO[i] .TypeName = CO.TypeName, 

CO [ i j . PrimaryGroupingName = CO . PrimaryGroupingName 
Object CO, 



Grouping G 
: Object = G. Grouping 
:iype$Located_with = 
G. Member = CO. Object 

i + 1; 



AND 

G. Relationship AND 



Set up the location description. Ensure that if there isn't one 
in the database, then the object reference is set to null and the 
last used text is left so that it can be edited. 

L. Object = ObjectSNull; 



REPEATED 
SELECT 



L. Object = L. Object, 

L. Combination = L. Combination, 

L. Phone = L. Phone, 

L. Contact = L. Contact, 

L.LI = L.LI, 

L.L2 = L.L2, 

L.L3 = L.L3, 
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:L.L4 = L.L4, 

:L. Comment = L. Comment 
FROM Location L 
WHERE : Object = L.Object; 



ROLLBACK; 

END; 
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ON Click Apply_Button = 
/* 

* Set up the location, if needed; then update it 

V 

BEGIN 

IF L. Object = Object SNull THEN 
INSERT INTO Location 
(Object 
) 

VALUES 

{ : Object 
) ; 

ENDIF; 

UPDATE Location L 

SET Combination = :L. Combination, 

Phone = :L. Phone, 

Contact = :L. Contact, 

LI = :L.L1, 

L2 * :L.L2, 

L3 = :L.L3, 

L4 = :L.L4, 

Comment = :L. Comment 
WHERE : Object = L. Object ; 

COMMIT; 
RETURN; 

END; 

ON Click Cancel_Button = 
BEGIN 

RETURN; 

END; 

ON ChildProperties CO = 
/* 

Edit the selected object 

V 

BEGIN 

IF FIELD (CO) .CurRow != 0 THEN 

CALLPROC ObjectEditor (OS = CO[]);. 
ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (!) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 

Application: PowerSystemModel 
Frame : SetMeasurment 

*/ 

INITIALIZE 
( 

Object = ObjectClass; /* Object being edited */ 

OM = ARRAY OF MeasurementClass ; /* Passed measurements */ 

i = INTEGER NOT NULL; /* Scratch integer */ 

Terminal = INTEGER NOT NULL; /* Scratch terminal number */ 

CList = ChoiceList; /* Scratch choice list entry 

) = 

BEGIN 

CurFrame.CurMode = FM_Query ; 

/• 

* Show the object being worked on 
*/ 

0. Object = Object .Object ; 
O.BaseType = Object .BaseType, • 
O.Type = Object. Type; 

0. Prima ryGrouping = Object . PrimaryGrouping ; 
O.TypeName = Object .TypeName; 
C.Name = Object. Name; 

O.PrimaryGroupingName = Object . PrimaryGroupingName; 

/* 

* Load up the type lists 
*/ 

CALLPROC LoadTypeList 

(EF = EnumField (FIELD (ML [*] .MeasurandType) .ProtoField) 
,StartType = Type$Measurand 

) ; 

FIELD (M. MeasurandType) .ValueList = 

EnumField ( FIELD (ML [ * ] .MeasurandType) .ProtoField) .ValueList; 

CALLPROC LoadTypeList 

(EF = EnumField (FIELD(ML [*] .MeasurerType) .ProtoField) 
, StartType = Type$Measurer 

); , 
FIELD (M. MeasurerType) .ValueList = 

EnumField ( FIELD (ML [ * ] .MeasurerType) .ProtoField) .ValueList; 

CALLPROC LoadTypeList 

(EF a EnumField (FIELD (M. SensorType) ) 
,StartType = TypeSSensor 

) ; 

/* 

Load the lists of valid terminals for the object 
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*/ 

CList = FIELD (M . Terminal 1 ) .ValueList; 
CList .Choiceltems .Clear ( ) ; 
CList .Choicel terns [1] .EnumValue = 0; 
CList -Choiceltems [1] .EnumText = "; 
i = 2; 

REPEATED 
SELECT DISTINCT 

: Terminal = T. Terminal 
FROM Terminal T 
WHERE : Object .Object = T. Object 
ORDER BY Terminal 
BEGIN 

CList.ChoiceItems[i] .EnumValue ■ Terminal; 

CList .Choiceltems [i] .EnumText = VARCHAR (Terminal ) ; 

i ■ i + 1; 

END; 

FIELD (M. Terminal 1) .UpdChoiceList ( ) ; 
FIELD (M.Terminal2) .ValueList = Clist; 
FIELD (M.Terminal2) .UpdChoiceList { ) ; 

* Build the list of measurements made on this object. 
*/ 

ML = OM. Duplicate 0 ; 
i = 1; 

WHILE i <= ML .LastRow ( ) DO 
REPEATED 

SELECT :ML[i] .MO. Object = MO. Object, 

:ML[i] .MO.BaseType = MO.BaseType, 
:ML[i] .MO. Type = MO. Type, 

:ML [ i ] .MO . Primary Grouping = MO. Primary Grouping, 
: ML [ i ) . MO . TypeName = MO.TypeName, 
: ML ( i ) .MO. Name = MO . Name , 

:ML[i] .MO . PrimaryGroupingName = MO. Prima ryGroupingName 
FROM Object MO 

WHERE :ML[i] .Measurer = MO. Object; 
i s i + 1; 
ENDWHILE; 

ROLLBACKS- 
END; 

ON ChildEntry ML = 
/• 

* Edit a measurement 
•/ 

BEGIN 

M = ML [ ] ; 

CurFrame.CurMode = FM_Update; 

END; 

ON ChildProperties ML = 
/• 

Edit the selected object 

•/ 

•BEGIN 

IF FIELD (ML) .ActiveRow != 0 THEN 



IF ML [] .Measurer != 0 THEN 

CALLPROC ObjectEditor (OS = MLlJ.MO); 
ENDIF; 



ENDIF; 

END; 
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ON ChildProperties M.MO = 
BEGIN 

IF M. Measurer != 0 THEN 

CALLPROC ObjectEditor (OS = M.MO) ; 
ENDIF; 

END; 

ON ChildDetails M.MO = 
BEGIN 

OPENFRAME FindObject 

(SuperType = TypeSSensing 
, CallerFrame = CurFrame 
,CallerEvent = 'UpdateM.MO' 
,CallerInteger = 0 
) WITH 

WindowTitle = 'Find Measurer'; 

END; 

ON UserEvent 'UpdateM.MO' = 
BEGIN 

M.MO = ObjectSummaryClass (CurFrame. MessageObject) .Duplicate! ) ; 
M. Measurer = M.MO.Object; 
FIELD (ML) .UpdField( ) ; 

END; 

ON ChildSetValue M = 
BEGIN 

FIELD (ML) .UpdFieldO ; 

END; 

ON Click Apply_Button * 
/* 

* Pass back the modified list. 

V 

BEGIN 

i = 1; 

OM. Clear (); 

WHILE i <= ML.LastRowO DO 

OM[i) = ML [i] .Duplicate O ; 

i = i + 1; 
ENDWHILE; 

RETURN; 

END; 

ON Click Cancel_Button = 
BEGIN 

RETURN; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame : 



Powe r Sy s t emMod e 1 
SetObj ect 



INITIALIZE 

{ 



Type = INTEGER NOT NULL; 

DefaultObject = INTEGER NOT NULL; 

i = INTEGER NOT NULL; 

s = VARCHAR(80) NOT NULL; 

OS = ObjectSummaryClass; 

> = 

BEGIN 



/* Passed Type V 

/* Passed default object */ 

/* Scratch integer */ 

/* Scratch string */ 

/* Scratch Object V 



Set up a list of all the Objects for the user to use as a filter 

FIELD (F_Obj ect) . ValueList.Choiceltems. Clear {) ; 
i = 1; 

REPEATED 

SELECT : OS. Object = 0. Object, 

: OS. PrimaryGroupingName = O.PrimaryGroupingName, 

: OS. TypeName = 0. TypeName, 

:OS.Name = O.Name 
FROM Object 0, 

ExtendedType ET 
WHERE :Type = ET.SuperType AND 

ET . Type = O.Type 
ORDER BY PrimaryGroupingName, TypeName, Name 
BEGIN 

s = OS . PrimaryGroupingName + ' ' + OS. TypeName + ' ' + OS. Name; 
s = Squeeze (s) ; 

FIELD ( F_Object ) .ValueList. Choicel terns [i] .EnumText = s; 

FIELD (F_0bject ) .ValueList. Choicel terns [i] .EnumValue = OS. Object; 

i s i + 1; 

END; 



END; 



F_Object : 
ROLLBACK; 



DefaultObject; 
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ON Click Apply_Button = 
/* 

Pass the selected Object back to the caller 

V 

BEGIN 

RETURN F_Object; 

END; 

ON Click Cancel_Button = 
BEGIN 

RETURN NULL; 

END; 

ON Properties F_Object = 
/* 

* Edit the selected object 

*/ 

BEGIN 

IF F_Object != Object$Null THEN 
REPEATED 

SELECT : OS. Object = 0. Object, 

:OS.BaseType * O.BaseType, 
:OS.iype = O.Type, 

:OS.PrimaryGrouping = 0. Primary Grouping, 
:OS.TypeName = O.TypeName, 
:OS.Name = O.Name, 

:OS.PrimaryGroupingName = 0. PrimaryGroupingName 
FROM Object 0 
WHERE :F_Object = 0. Object; 

CALLPROC ObjectEditor (OS = OS) ; 
ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application : PowerSystemModel 
Frame: SetRating 



INITIALIZE 
( 



/* Passed object */ 

/* Scratch integer */ 

/* Scratch season */ 

/* Reference to season list 



Object = INTEGER; 
i = INTEGER NOT NULL; 
Season = ObjectSummaryClass; 
SeasonList ■ ChoiceList; 
) = 

BEGIN 

Set up the Season list 

SeasonList = EnumField(FIELD(R[*] .Season) .ProtoField) .ValueList; 
SeasonList .Choiceltems. Clear 0 ; 
SeasonList .Choiceltems [1] .EnumValue = 0; 
SeasonList .Choiceltems [1] .EnumText = "; 
i = 2; 

SELECT : Season. Object = S. Object, 

•.Season. Name = S.Name 
FROM Object S 
WHERE :iype$ Season = S.Type 
ORDER BY Name 

BEGIN , „ 

SeasonList .Choiceltems [i] .EnumValue = Season. Object ; 
SeasonLis t. Choiceltems [i] .EnumText = Season. Name; 
i b i + 1; 

END; 

EnumFi eld( FIELD (R[*] .Season) .ProtoField) .UpdChoiceList ( ) ; 

Build the list of co-rated objects 

CO. Clear ( ) ; 
i = 1; 



REPEATED 
SELECT 



CO[i]. Object = CO. Object, 
CO[i] .BaseType = CO.BaseType, 
CO[i] .Type = CO. Type, 

CO(i j . PrimaryGrouping = CO . Prima ryGrouping , 

CO(i).Name = CO. Name, 

CO[i] .TypeName = CO.TypeName,- . 

CO i .PrimaryGroupingName = CO.PrimaryGroupingName 
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FROM Object CO, 

Grouping G 
WHERE : Object = G. Grouping AND 

:Type$Rated_as = G. Relationship AND 

G. Member - CO. Object 

BEGIN 

i = i + 1; 

END; 

Load up the ratings 

R. Clear () ; 
i = 1; 

REPEATED 

SELECT :R[i]. Object = R. Object, 
:R[i] .Type = R.Type, 
:R(i]. Season = R. Season, 
:R[ij .Temperature = R. Temperature, 
:R[i] .Normal = R. Normal, 
:R[i] .ShortTerm = R.ShortTerm, 
: R [ i ) . Emergency = R . Emergency , 
:R[i] .Loadshed = R.Loadshed 

FROM Rating R 

WHERE : Object = R. Object 

ORDER BY Type, Temperature 

BEGIN 

i = i + 1; 

END; 



ROLLBACK; 

END; 
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ON Click Apply_Button = 
/• 

Blow the ratings away, and re-load them 

*/ 

BEGIN 

DELETE FROM Rating WHERE :Object = Object; 
i = 1; 

WHILE i R.LastRowO DO 
INSERT INTO Rating 
(Object 
,Type 
, Season 
, Temperature 
, Normal 
, ShortTerm 
, Emergency 
, Loads hed 
) 

VALUES 

( : Object 
, :R[i] .Type 
, :R[i] .Season 
, :R[i] .Temperature 
, :R[i] .Normal 
, :R[i] .ShortTerm 
, :R[i] .Emergency 
, : R [ i ] . Loadshed 
) ; 

i = i + 1; 
ENDWHILE; 

COMMIT; 
RETURN; 

END; 

ON Click Cancel_Button = 
BEGIN 

RETURN; 

END; 

ON ChildProperties CO = 
/• 

* Edit the selected object 

V 

BEGIN 

IF FIELD (CO) .CurRow != 0 THEN 

CALLPROC ObjectEditor (OS = COU); 
ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
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App lication: Power Sy s t emMode 1 



Set up a list of all the types for the user to use as a filter 

FIELD (F_Type) .ValueList .Choiceltems. Clear 0 ; 
i = 1; 

FJType = Object. Type; 
REPEATED 

SELECT : Type. Type = T.Type, 

: Type .Name = T.Name 
FROM Type T, 

ExtendedType ET 
WHERE : Object .BaseType = ET.SuperType AND 

ET. Type = T.Type 
ORDER BY Name 
BEGIN 

FIELD (F_Type) .ValueList .Choiceltems [i] .EnumText = Type. Name; 
FIELD (FJType) .ValueList. Choiceltems [i] .EnumValue = Type. Type; 
i = i + 1; 

END; 

ROLLBACK; 



Frame : 



FindType 



INITIALIZE 

( 

Object = ObjectClass; 
i = INTEGER NOT NULL; 
Type = TypeClass; 
) = 

BEGIN 



/* Passed object V 
/* Scratch integer */ 
/* Scratch type */ 



END; 
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ON Click Apply_Button = 
/• 

Pass the selected type back to the caller 

•/ 

BEGIN 

Object. Type = FJType; 

Object .TypeName = FIELD (F_Type) . CurEnumText ; 
RETURN; 

END; 

ON Click Cancel_Button = 
BEGIN 

RETURN; 

END; 
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/• 

** Application: PowerSystemModel 

* * Frame : SystemParameters 

V 

INITIALIZE 
( 

i = INTEGER NOT NULL; /* Scratch integer */ 

OriginalKV = ARRAY OF kVLevelClass ; /* Original values in table * 

) = 

BEGIN 

/• 

* Show the global copy of the system parameters 
*/ 

SPF = SP* 

CurFrame'. SendUserEvent { EventName = ' LoadkVLevel ' ) ; 

END; 

ON UserEvent 'LoadkVLevel' = 
BEGIN 

/* 

* Get the kV levels and make a copy of the original values 
V 

kV. Clear! ) ; 
i = 1; 

REPEATED 

SELECT :kV[i] .kVLevel = kV.kVLevel 
FROM kVLevel kV 
ORDER BY kVLevel 
BEGIN 

OriginalkV[i] = kV[i] .Duplicate 0 ; 
i = i + 1; 

END; 

ROLLBACK; 

END; 

ON ClearTable kV = 
BEGIN 

RESUME; 

END; 

ON DeleteRow kV= 
/* 

Attempt to delete the kVLevel entry, then re-load the table 

* field so the user can see the current state of affairs. 
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BEGIN 

i = FIELD (kV) .CurRow; 
DELETE FROM kVLevel kV 

WHERE :OriginaikV[i] .kVLevel = kV. kVLevel; 



CurFrame . SendUserEvent (EventName = ' LoadkVLevel ' ) ; 

END; 

ON InsertRow kV= 
/* 

Add a new row in the same position in the "original" array and 

* set the value to null. 

V 

BEGIN 

i = FIELD (kV) .CurRow; 

OriginalkV. InsertRow (RowNumber = i); 

OriginalkV[i] .kVLevel = NULL; 

END; 

ON ChildSetValue kV = 
/* 

* Update the database immediately so that the user can 

* get any feedback, then re-load the table 

field so they can see the current state of affairs. 

V 

BEGIN 

i = FIELD (kV) .CurRow; 

IF OriginalkV[i] .kVLevel IS NULL THEN 
INSERT INTO kVLevel 
(kVLevel 
, Name 
, Voltage 
) 

VALUES 

( :kV[i] .kVLevel /**** fix up 

, VARCHARI :kV[i] .kVLevel) /**♦* fix up ***♦/ 
, :kV[i] .kVLevel fix- up **♦*/ 

) ; 

ELSE 

UPDATE kVLevel kV 

SET kVLevel = :kV[i] .kVLevel, /**** fix up 

Name = VARCHAR( :kV[i] .kVLevel) , /**** fix up 
Voltage = :kV[i] .kVLevel /**•« fi x up *•»*/ 

WHERE :OriginalkV[i] .kVLevel = kV. kVLevel; 
ENDIF; 

COMMIT; 

CurFrame . SendUserEvent ( EventName = ' LoadkVLevel ' ) ; 

END; 
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V 



Application: 
Frame: 



Powe r Sy s t emMode 1 
Type 



INITIALIZE 
( 

i = INTEGER; 
Row = INTEGER; 
ErrorNumber = INTEGER; 
MenuEntry = Choiceltem; 
TypeName = VARCHAR(20); 
) = 

BEGIN 



/* 
/* 
/* 
/* 



Scratch integer */ 
Scratch integer V 
Scratch integer */ 
Scratch menu entry */ 
Local string variable */ 



Set up the Type Hierarchy table field. 

TH. Clear 0 
SELECT 



FROM 
WHERE 



TH[1] -Type = T.Type, 
TH[1] .BaseType = T.BaseType, 
TH[1] .Name = T.Name 
Type T 

T.Type = :Type$Object ; 



Set up the Type Selection table field. 



i = 1; 
TS. Clear 0 



SELECT 



FROM 

WHERE 

ORDER 
BEGIN 
i 

END; 



TS[i] .Type = T.Type, 
TS(i] .BaseType = T.BaseType, 
TS(i j .Name = T.Name 
Type T, 
SuperType ST 

:TH[1] .Type = ST. SuperType AND 
ST. Type = T.Type 
BY Name 



i * 1; 



END; 



ROLLBACK ; 
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ON ChildSetValue TS = 
BEGIN 

/* 

* Insert a new type and it's supertype if the key is undefined, 

otherwise update the existing entry. 

V 

IF TS[] .Type = 0 THEN 
INSERT INTO Type 
(Type 
, BaseType 
,Name 
) 

VALUES 
(-1 

, :TH [TH. LastRow( ) ] .BaseType 
, :TS(] .Name 

) ; 

INQUIRE_SQL( : ErrorNuinber = ERRORNO ); 

IF ErrorNumber != 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (0, :TS[].Name, 'Type_007'); 

ROLLBACK; 

RESUME; 
ENDIF; 

SELECT :TS[].Type = K. Value 

FROM Last Key K 

WHERE K.LastKey = 'Type'; 

INSERT INTO SuperType 
(SuperType 
.Type 

) 

VALUES 



TH(TH.LastRow(} ) .Type 
TS [ ] . Type 



END; 



ELSE 

UPDATE Type T 

SET Name » :TS[).Name 

WHERE :TS[].Type = T.iype; 

INQUIRE_SQL( :ErrorNumber = ERRORNO ); 

IF ErrorNumber ! = 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 

VALUES (0, :TS[].Name, 'Type_007'); 
ROLLBACK; 
RESUME; 
• ENDIF; 
ENDIF; 

COMMIT; 
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ON DeleteRow TS = 

* Delete the SuperType which points to this Type. Then delete the Type 

* itself. 
*/ 

BEGIN 

DELETE FROM SuperType ST 
WHERE :TS[].Type = ST. Type; 

INQUIRE_SQL ( : ErrorNumber = ERRORNO ) ; 

IF ErrorNumber = 0 THEN /* Query succeeded V 

DELETE FROM Type T 

WHERE :TS[].TVpe = T.Type; 

INQUIRE_SQL( : ErrorNumber = ERRORNO ); 

IF ErrorNumber = 0 THEN 

TS.RemoveRow(RowNuinber « FIELD (TS ) .CurRow) ; 

ELSE 

ROLLBACK; 
ENDIF; 

ENDIF; 

COMMIT; 

END; 

ON ClearTable TS = 
BEGIN 

RESUME ; 

END; 
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ON ChildEntry TH = 
/* 

* Load the Type Selection table field with the subclasses of the selected 

* type in the Type Hierarchy table field. 
• 

* Never allow the TH table field to get input focus. 
*/ 

BEGIN 

Row = FIELD (TH) .CurRow; 

i = 1; 

TS. Clear () ; 

REPEATED 

SELECT :TS[i].Type = T.Type, 

:TS[i] .BaseType = T.BaseType, 

:TS[ij.Name = T.Name 
FROM Type T, 

Superiype ST 
WHERE :TH[Row] .Type = ST.SuperType AND 

ST. Type = T.Type 
ORDER BY Name 
BEGIN 

i s i + 1; 

END; 

/* 

* Remove everything below the current row starting at the end. 
V 

Row = TH. Last Row ( ) ; 

WHILE Row > FIELD (TH) .CurRow DO 

TH.RemoveRow(RowNumber = Row) ; 

Row = Row - 1; 
ENDWHILE; 

ROLLBACK; m ^ 

RESUME; /* Throw away the rest of the events. •/ 

END; 
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ON ChildDetails TS, 

ON Click SubClasses_Btn = 

/• 

* Load the Type Hierarchy table field with the superclass of the selected 

* type in the Type Selection table field. Then reload the Type Selection 

* table field with the subclasses of that Type Hierarchy table field entry. 

BEGIN 

IF FIELD (TS) .CurRow = 0 THEN /* If nothing is selected go away V 

ROLLBACK; 

RESUME; 
ENDIF; 

Row = TH.LastRowO + 1; 

TH[Row] = TS[] .Duplicate! ) ; /* Copy the TS entry to TH table field. */ 

i = 1; 
TS.ClearO ; 

REPEATED 

SELECT :TS[i].Type - T.Type, 

:TS(i] .BaseType = T.BaseType, 

:TS(i].Name = T.Name 
FROM Type T, 

SuperType ST 
WHERE :TH(Row] .Type = ST. SuperType AND 

ST. Type = T.Type 
ORDER BY Name 
BEGIN 

i = i + 1; 

END; 

ROLLBACK; 

RESUME; /* Throw away the rest of the events. */ 

END; 
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CLAIMS 

1. A method for creating an information model based on a 
5 physical system, comprising the steps of: 

identifying all physical elements in a system; 
creating an object table for said physical elements; 
determining a set of attributes common to each object; 

and 

10 grouping the objects by common attributes to establish 

a relationship between the elements which defines the 
physical system. 

2. The method of claim 1, further comprising the steps of: 
15 establishing a hierarchy of objects based on type 

relation among the objects. 

3. The method of claim 2, wherein said hierarchy defines a 
type-supertype relationship. 

20 

4. The method of claim 1, wherein said object table creating 
step further comprises the step of: 

assigning a unique surrogate key to each object by which 
said object is identified with said object table. 

25 

5. A method for creating a single source information model 
based on physical equipment in a power system, comprising the 
steps of: 

identifying all physical equipment in the power system; 
30 creating an object table for said physical equipment; 

determining a set of attributes common to each object; 

and 

grouping the objects by common attributes to establish 
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a relationship between the objects which defines the power 
system. 

6. The method of claim 5, further comprising the step of: 

5 assigning a unique surrogate key to each object by which 

the object is known in the object table. 

7. The method of claim 5, further comprising: 
establishing a defined user interface based on a window 

10 environment. 

8. The method of claim 5, further comprising: 
importing data from a proprietary database associated 

with a different system, such that a single point of 
15 maintenance is provided. 

9. The method of claim 5, further comprising: 
exporting data to a proprietary database associated with 

a different system, such that a single point of maintenance 
20 is provided. 

10. The method of claim 5, further comprising: 
assigning a network position identifier to selected 

objects which is independent of specific object attributes 
25 and which serves as a place holder within the power system 
model . 

11. A method for creating a single source information model 
based on physical elements in a system, comprising the steps 

30 of: 

creating an extensible type hierarchy; 
identifying as objects said physical elements; 
collapsing said objects into tables, where attributes 
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specific to all objects below base types are collapsed into 
type tables, and all objects above base types are collapsed 
into object tables, using a common object table with 
surrogate keys; and 
5 externalizing and collapsing object relationships into 

tables, using typing to identify the type and relationship. 

12. The method of claim 11, further comprising the step of: 
allowing a user to extend said types down the hierarchy. 

10 

13 . A single source information model based on physical 
equipment in a power system, comprising: 

an object table, including a plurality of objects which 
identify all physical equipment in the power system, each 
15 object including a set of common attributes, said objects 
being grouped by said common attributes to establish a 
relationship between the objects which defines the power 
system. 
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